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A hora en tu kiosco y como auténtica pri- 
micia mundial, puedes conseguir el más 
sabroso y variado menú de Europa para tu 
ordenador, 
Ya tienes editados en cassette los mejores 
juegos y utilidades publicados por la prime- 
ra revista europea de ordenadores «y our 
Computen>. 
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Primer simposio sobre Inteligencia Artificial: el 
sistema Fermi. El revolucionario proyecta Enigma de 
Sine/air Research. 


SIMO 6 


Amstrad Semanal no podía por menas que estar 
presente e informar a nuestros lectores de las 
incidencias y novedades del SIMO 7985. Como en 
todas las ferias, ha habido software. El sistema 
operativo GEM se impone entre los ordenadores y las 
máquinas que la corren ya están en España: Atari, 
IBM y Apricot, entre otras. 


14 ProgramAcción 
Para resumir e integrar las precedentes artículos 
acerca del sistema RSX de ampliación del Amstrad 
Basic y del tratamiento de interrupciones, nada meior 
que un eiempla que crea un nuevo comando que a su 
vez activa un reloi de tiempo real por interrupción. 
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petrificación? 
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Serie Oro 


Esta vez os traemos un iuega espléndida de acción y 
estrategia que se explica a sí mismo mucho meior en 
las fotos de pantalla que en 700.000 palabras. 
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Código 
.. . 
maqu.na 
Seguimos analizando el usa y disfrute de sprifes en 
código máquina, más un programa de diseño de 
sprites en Basic, y más, mucho más. 
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Análisis 


Las menús de opciones: cómo san y cómo se hacen, 
Un pequeño y útil programa explica cómo implementar 
esta útil técnica en nuestras programas, 
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EL GOBIERNO 
PROHIBE LA VENTA 
DE ORDENADORES 
NO HOMOLOGADOS 


« 


EL Gobierno prohibió la venta, impor- 
tación y fabricación de ordenadores que no 
cumplan las normas de homologación UNE en 
todo el territorio nacional a partir del día 27 
de noviembre de 1985, haciendo aplicación 
de los Reales Decretos 1250 y 1251 publica- 
dos en el BOE del 27 de julio de 1985, 
La medida afecta decisivamente a la casi to- 
talidad de lo que constituye el hardware de 
un ordenador, esto es, unidad central y peri- 
féricos, incluidos pantallas, impresoras y tecla- 
dos. 
Hasta este momento, sólo se han presenta- 
do dos solicitudes de homologación con fecha 
del 27 de noviembre, UNA DE ELLAS PERTE- 
NECIENTE A INDESCOMP, DISTRIBUIDOR 
OFICIAL DE LOS PRODUCTOS AMSTRAD EN 
ESPAÑA, POR LO QUE ESTA MEDIDA GU- 
BERNAMENTAL NO LE AFECTARA EN AB- 
SOLUTO, ni a ellos, ni a los actuales o futuros 
usuarios de Amstrad. 
La Asociación Española de Importadores de 
Productos Electrónicos (ASIMELEC), asegura 
que la nueva normativa afecta a un volumen 
de importaciones que supera el MEDIO BI- 
LLON de pesetas, mientr' . que fu' ntes del Mi- 
nisterio de I

¡ i. o reb iah! 24.000 mi- 
llones de p
setos. l' 
ASltv \lC denun ia I fA' iI$ter' '.Dor incum- 
plir la promesa d.. prorrogar :1 plazo de ho- 
mologació. , yb que, s
Lúnt;lb, no la habi- 
do tiemp, .. teriafpara homologar ni se han 
expuesto con suficiente claridad las condicio- 
nes materiales y documentación técnica nece- 
saria para conseguirla. Todos los grandes 
nombres de la informática se verán afectados: 
IBM, Xerox, NCR, Hewlett Packard y, por su- 
puesto, las compañías que dedican su aten- 
ción al ordenador doméstico más que al per- 
sonal, como Commodore y los MSX. 
Sin embargo, en el Boletín Oficial del Esta- 
do del 28 de noviembre de 1985 se notifica 
UNA PRORROGA POR PARTE DEL GOBIER- 
NO DE 6 MESES ANTES DE LA PLENA EN- 
TRADA EN VIGOR DEL DECRETO LEY. LAS 
EMPRESAS IMPORTADORAS DISPONDRAN 
DE ESTOS 6 MESES PARA ADAPTAR SUS MA- 
QUINAS A LAS NORMAS DE HOMOLOGA- 
CION. 
Van a tener que darse mucha prisa, pero al 
menos la prórroga impide que España quede 
en una posición absolutamente tercermundis- 
ta... durante los próximos 6 meses. 
Después de todo el alboroto, la sangre no 
ha llegado al río, pero el Gobierno ha dado 
un serio toque de atención a los importado- 
res en el sentido de que, al parecer, está de- 
cidido a llevar 'esta normativa hasta sus últi- 
mas consecuenCias, 
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MAS Y MAS 
CHIP S 


E 
 
Ir- 
'..---. n Japón, la industria del 
diseño y producción de chips está 
más boyante que nunca. Sony, por 
ejemplo, acaba de anunciar que in- 
crementará su producción en un 50 
por 100 para el ejercicio del 85/86, 
para poder hacer frente al enorme 
incremento de la demanda. Sony in- 
vertirá en este asunto 162 millones 
de dólares, 
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!6 10 v;sto de lo cce6ente ;m- 
portancia de los ordenadores perso- 
nales en nuestras vidas a todos los ni- 
veles, entre ellos los universitarios, la 
Caja de Ahorros ha abierto una línea 
especial de créditos para la adquisi- 
ción de ordenadores personales has- 
ta un monto de 500.000 ptas., al pa- 
recer amortizable en 3 años y con 
condiciones de intereses especiales. 
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EL ENIGMA QUE VIENE 


inclair R.:.search ha decidi- 
.0 sumarse a las corrientes dominan- 
es en el mercado. e los ordenado- 
'es personales, los ,ue serán la pró- 
.¡ma generación d". «home compu- 
) 
Después del fracaso del QL y de la 
oportuna aparición del Spectrum 
128K, ha sido dado a conocer al pú- 
blico el último proyecto de Sinclair, 
el proyecto ENIGMA. 
Detrás de este críptico nombre se 
esconde una maravilla de ordena- 
dor, si se cumplen las prestaciones 
anunciadas por Sinclair Research, 
que son las siguientes: 
- Microprocesador Motorola 
68000 de 16/32 bits. Se ha abando- 
nado definitivamente el 60008, el del 
QL, que pecaba de ser una extraña 
mezcolanza entre, 8, 16 y 32 bits, lo 
cual disminuía bastante las prestacio- 
nes de uno de los microprocesado- 
res más avanzados del mundo. 
- Dos unidades de disco de 3,5 
pulgadas: Sinclair se «apunta» al 
formato Sony, que se está convirtien- 
do rápidamente en algo parecido a 
un estándar. Por fin, la desgraciada 
filosofía de los microdrives se deja de 
lado. Ya era hora. 
- Nada más y nada menos que 
un megabyte de memoria RAM, 
1024 Kbytes. Sólo el Atari 520 ST + 
tiene hoy en día esa memoria a un 
precio razonable. 
- Sistema operativo GEM, de Di- 
gital Research, un clónico del sistema 
operativo del Apple Maclntosh que 
sigue la filosofía WIMP (del inglés 
Windows, Icons, Mouse y Pul/-down- 
Menus, o sea, ventanas, iconos, ra- 
tón y menús de opciones en lugar de 
comandos). Este s.a. está especial- 
mente diseñado para aprender a 
usarlo a pleno gas en pocos minutos. 
- Lo más importante, el precio. 
Se espera vender el Enigma entre 
500 y 1.000 libras esterlinas, yesta- 
rá disponible para mayo del 86. 
MICWH088Y AMSTIlAD 5 
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La feria internacional del equipo de oficina e 
informática SIMO, cumple sus bodas de plata. 
Año tras año, la informática ha ido haciéndose con 
una representación más nutrida e importante, hasta 
el punto de que actualmente este sector ha 
desplazado totalmente al destinado al material de 
oficina, ocupando un 70 por J 00 de la superficie 
dedicada expositores. 
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nte este magno aconte- 
cimiento, AMSTRAD semanal no po- 
día mantenerse al margen y envió a 
su equipo de reporteros al mismo 
centro de la noticia. 
la exposición, tradicionalmente 
tiene como marco el recinto ferial de 
I FEMA de la Casa de Campo de Ma- 
drid. 
En ella se dan cita, tanto las gran- 
des multinacionales de la informáti- 
ca, como las nuevas marcas, que 
empezando con el micro doméstico 
se introducen a marchas forzadas en 
el campo del ordenador personal de 
altas prestaciones, con un precio re- 
volucionario, 
Entre las primeras; IBM, ICl, OLl- 
VETTI, APPlE, PHILlPS, etc, 
Entre las de la nueva ola: ATARI, 
SINClAIR, APRICOT y AMSTRAD, 
pueden citarse como destacados 
ejemplos. 
Para realizar nuestro recorrido por 
los stands, qué menos que visitar en 
primer lugar el de la empresa núme- 
ro uno en el mundo informático; 
I BM, líder mundial en ventas. 
En su departamento de ordenado- 
res personales, tres pura sangre: 
IBM-PC, IBM-Portátil, IBM-AT. 
Destacando entre todos la última 
creación de la firma, el todopodero- 
so AT. 
EII BM-A T, incorpora la tecnología 
más avanzada incluyendo nuevos 
microprocesadores, coprocesador y 
di
kettes de alta capacidad, 
Sus característicos técnicos: 
Microprecesador Intel-80286 
avanzado, de alto rendimiento. 
Intérprete de direccionamiento 
compatible con el 8086. 
256 KB de memoria RAM dinámi- 
ca, 516 KB para el modelo amplia- 
do, 


[ 
I 


\. 


/:
." 

_ .. ;.'\S!'..,
..':,:c.o::.:.'
",,_ 


IJ 


1 
/
 "':'Ir.: 'r:'1'
':':";"':"" 
 
 ==. 
 :...¡
 
:o. T:..T_T_ _T..3_ _ _ _ ;1 
-' 



 
I 



JIU- 
-
..
- :


E==:;=

 
..,' 
 7 / 
 
' ----, .
 
-'\ '9- 
----===-=- - 
- / 



 



 


Unidad de diskettes de alta capa- 
cidad de 1,2 MB. 
Unidad de disco fijo de 20 MB pa- 
ra el modelo ampliado, 
Ocho conectores de expansión 
E/S, 
Zócalo para co-procesador 
80287, 
Direcciones de 24 bits, Bus de da- 
tos de 16 bits. 
Ni que decir tiene que este mode- 
lo es compatible con casi todos los 
productos de Hardware y Software 
deIIBM-PC, con la gran ventaja de 
que el rendimiento del modelo AT, 
puede duplicar e incluso triplicar la 
velocidad del IBM-PC. 
La memoria se puede ampliar des- 
de los 256 KB iniciales hasta un má- 
ximo de 3 MB. 
La unidad central admite dos uni- 
dades de diskette y una unidad de 
disco fijo, o una unidad de diskette 
y dos de disco fijo, configuración con 
la cual se puede conseguir una ca- 
pacidad de almacenamiento de 41,2 
MB. 
El teclado incorpora sustancial- 
mente mejoras en la distribución de 
las mismas con un conjunto de 84 te- 
clas e indicadores de modalidad. 
PH I LI PS, con su ordenador perso- 
nal P3100, el cual puede ser integra- 
do en una red de comunicaciones. 
El P3100, dispone de una memo- 
ria RAM de 128 KB, ampliable a un 
máximo de 640 KB. 
Puede utilizar una o dos unidades 
de disco flexible más una de disco 
duro de 10MB. 
Utiliza el sistema operativo MS 
DOS de Mictosoft, compatible con 
IBM. 
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Ideal para ser conectado a otros 
ordenadores y a redes públicas de 
datos mediante los paquetes de co- 
municaciones; BSD, SDLC, SNA y 
X25. 
También puede funcionar como 
terminal de videotex o de teletext. 
OL/VETTI, además de sus afamadas 
máquinas computerizadas de escri- 
bir y ordenadores de tratamiento de 
textos, tiene el M24. Un ordenador 
de 16 bits, con microprocesador In- 
tel 8086. RAM de 128 KB, ROM de 
16 KB Y la posibilidad de dos discos 
flexibles de 360/720 KB o una unidad 
de disco flexible y una de disco duro 
de 10MB, 
Como opciones complementarias: 
ampliación de la memoria a 384 KB 
Y la posibilidad de un disco duro de 
gran capacidad 30 MB. Tlecados de 
83 elementos en el modelo standard 
o 102 en el modelo plus. 
Con los sistemas operativos: MS 
DOS, concurrent CP/M-86, PCOS, 
sistema UCSD-P. 
CANON, con su ordenador per- 
sonal A-200, compatible IBM, Inclu- 
yendo microprocesador 8086 de 16 
bits, memoria de 256 KB ampliable 
a 512 KB Y todos los demás adita- 
mentos que caracterizan a estos or- 
denadores. 
Disco flexible de 360 KB, cinco slots 
de expasión, etc. 
ITT, y sus ordenadores personales 
XTRA de microprocesador 8088 de 
16 bits. 
Memoria de 128, expansible a 520 
KB Y demás características similares; 
discos flexibles de 360 KB Y duros de 
10MB Y 20 MB. Hasta aquí hemos 
visto la gama PC todos compatibles 
con IBM y con unas prestaciones muy 
similares, debida a su compatibili- 
dad. Con la única excepción del nue- 
vo modelo de IBM: el AT que mejo- 
ra infinitamente las características de 
los PC compatibles. 
Pero además de los PC, existe una 
gama de modelos en expansión que 
representan la mayor innovación 
dentro del campo de la informática. 
Estos son los modelos de las nue- 
vas marcas como ATARI y APRICOT, 
que sin llegar a tener la compatibili- 
dad IBM, incorporan unas prestacio- 
nes inigualables a un precio reduci- 
dísimo. 
Estos ordenadores tienen como 
base el sistema operativo GEM y se 
manejan por medio de un ratón, lo 
que nos permite efectuar complica- 
dísimas operaciones con un solo de- 
do. 
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la precursora de este sistema ha 
sido la casa APPlE con su famoso 
MACI NTOSH, el ordenador mós fá- 
cil de manejar del mundo gracias a 
su potente sistema operativo. 
El MAC está dotado de un micro- 
procesador 68000 de 16 bits. Inclu- 
ye en un sistema compacto el moni- 
tor y la unidad de disco, formando 
un sistema poco voluminoso y fácil de 
manejar. 
En el stand de APPlE también es- 
taban los modelos anteriores de la 
casa: el Apple Ile y el 11e. 
Pero la mayor revolución, llevada 
de la mano de A T ARI por vía de un 
precio increíble, es el mítico 520 STo 
Una máquina basada en el GEM 
y que por el módico precio de 
200.000 ptas. incluye: monitor mo- 
nocromo, teclado, disco flexible y ra- 
tón. 
Su microprocesador es el Motoro- 
la 68000. 
El distribuidor oficial en España de 
esta maravilla es Investrónica, famo- 
sa por el Spectrum y demás produc- 
tos Sinclair de los cuales es el conce- 
sionario oficial. 
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En el mundo de Sinclair, mencio- 
namos el Ql con sus nuevas unida- 
des de disco y el nuevo Spectrum 
128. 
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El stand de OSE presentaba los 
productos Apricot. 
Modelos PC, F2, F10 y FP. 
los F2 y F10 basados en el GEM 
y con ratón por infrarrojos. la me- 
moria RAM de ambos modelos es de 
512 KB, ampliables a 720. El mode- 
lo F2 posee dos unidades de disket- 
tes consiguiendo una capacidad to- 
tal de 1,44 MB. 
Mientras que el F10 incorpora un 
disco Winchester de 10MB. la co- 
nexión del teclado a la unidad cen- 
tral se efectúa sin cable utilizándose 
también los rayos infrarrojos. 
Modelos con un precio realmente 
interesante para las prestaciones que 
ofrecen. 
Saliendo de los ordenadores GEM 
entramos en el mundo de Amstrad, 
que presenta modelos desde el do- 
méstico por excelencia CPC 464, has- 
ta el super-profesional PCW 8256, 
pasando por los CPC 6128. Comple- 
mentados con una amplia selección 
de software, tanto recreativo como 
de gestión. 
Tras lo cual queda la gama de los 
populares MSX, con casas como So- 
ni, Philips, T oshiba, Canon, Espectra- 
vídeo y otras respaldando el stan- 
dard. 
En definitiva, una gran feria para 
los amantes de la informática don- 
de se pueden encontrar cualq
ier ti- 
po de ordenador, desde el domésti- 
co al usado por las grandes empre- 
sas. 
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Ahora en tu quiosco, y como una auténtica 
primicia mundial, puedes conseguir el más 
sabroso y variado menú de Europa para tu or- 
denador. 
Ya tienes editados en cassette los 
mejores juegos y utili- 
dades publica- 
dos por 


la primera revIsta europea de ordc'nadorC'3 
«y our Computen), 
Disfruta cada mes de la gran calid¿d de sus 
programas. Además, a tu ordenador td.Hlbien 
le gustará. 
y todo por un precio inmejorable. 
Your Computer. El más sabroso menÚ 
de Europa. 
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DISPONIBLE P' RA: 
SPECTRUM 48, PLUS, 128 


COMMODORE 64 


AMSTRAD 


:<.' 


e 
«.,,
Cb ?$e<.. 
 
 
'" \VCb 
e «."Q) 
c¡, -<,/:> <.- e 

 s4
j. 
e. c¡, 
1><, s'" . :s-,e '" \ 

 «.<..V ':::;;.e 
b S
<.. 
:::;;.e 
"\ s
 
<o 



 


EDITA 
t¿1

rf1
 
J 

?t; 
 

j 
 M 
 (: 
 

?1;
 
 l},.m m
¥h
 
;
f;" 
P. o de la Castellána, 268 
28046 Madrid 
Te!. (91,) 733 27 99 


.. 



j 


, 


La edición del SIMO de 1985 
se puede decir que ha 
transcurrido bajo el signo de 
la revolución dentro de lo 
clásico. 



 


ste enigmático aser o creemos que 
se justifica por el hecho de que Jacas, muy po- 
cas novedades importantes hp habido en lo 
relativo o hardware, a nuev,
s equipos que 
constituyan por sí mismos una evolución, pe- 
ro el software es un sueño, 


¿Qué se lleva 
en informática? 


En la informática también hay modas, co- 
mo en todas portes, Unas, causan mucho rui- 
do y pocos nueces, pero otras son el produc- 
to de lo maduro reflexión de muchos mentes 
que trotan de integrar, en un solo producto 
de base, las exigencias de los consumidores 
y los últimos avances en lo concepción tecno- 
lógico y filosófica de lo que debe ser la arqui- 
tectura de un ordenador, 
En este sentido, el mercado y los fabrican- 
tes caminan codo con codo en exigir y crear 
ordenadores verdaderamente útiles, es decir, 
que sean auténticas herramientas de trabajo 
y/o diversión poro cualquier persona, y que 
proporcionen las máximos prestaciones con la 
mínima dificultad de uso. 
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Esto, que parece obvio porque amplía enor- 
memente el círculo de usuarios, sin perder por 
ello el enfoque profesional, de cábala de ini- 
ciados, que han tenido hasta hace muy poco 
tiempo, sólo ahora es factible y materializa- 
ble en un producto concreto, La razón es muy 
simple: el avance tecnológico ha abaratado 
considerablemente el coste de los componen- 
tes y de las memorias, además de impulsar la 
aparición de microprocesadores mucho más 
potentes. 
Resulta que ya podemos humani- 
zar los ordenadores, y enfocar su 
uso desde el punto de vista del hom- 
bre en lugar del de la máquina. Ap- 
pie lo ha hecho con el Maclntosh, y Atari con 
el 520 ST, 


La saga del ratón 


Sin embargo, ellos no fueron los primeros, 
aunque comercialmente se llevaran toda la 
gloria, sino que los pioneros en cómo hacer 
que las máquinas tuvieran una manero «hu- 
mana» de funcionar fueron los señores del 
Laboratorio de Investigación de Polo Alto, en 
California, un centro de Rank Xerox. 
Esta gente se dedicaba, fundamentalmen- 
te, a la investigación en el campo de la Inteli- 
gencia Artificial, y tenían un problema muy se- 
rio: disponían de lenguajes de programación 
altamente sofisticados, diseñados especialmen- 
te para la Inteligencia Artificial (L1SP), pero ca- 
recían de un entorno de programación y de- 
sarrollo adecuado para el tratamiento de la 
información simbólica e impreciso, es decir, de 
un sistema operativo «ad hoc». 
En aquella época, la lA era una curiosidad 
de biblioteca más que una ciencia o una in- 
dustria, y los ordenadores se empleaban casi 
exclusivamente para el cálculo numérico, por 
lo que los entornas de programación se ajus- 
taban a esa tendencia. 
El tándem de Xerox no se arredró demasia- 
do por ello; si no tenían un entorno de desa- 
rrollo adecuado, ¡qué diablos!, harían uno, 
El planteamiento fue extremadamente sim- 
ple: si yo en lA manejo símbolos y objetos más 
que numerosos, el sistema operativo que ne- 
cesito es uno orientado a objetos, de forma 
tal que lo que yo veo en lo pantalla corres- 
ponda al objeto o símbolo que quiero some- 
ter o proceso. 
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Así nació el primer punto del nuevo sistema 
operativo: el concepto de ICONO, es decir, 
referenciar un objeto procesable por el orde- 
nador mediante un dibujo. Por ejemplo, un do- 
cumento se representa por una hoja de papel 
con líneas escritas, en lugar de algo como 
«CARTITA.DOC». 
Segundo punto: si mis objetos ya están en 
pantalla, debo implementar un método de ac- 
ceder a ellos que siga lo misma filosofía «vi- 
sual», es decir, en lugar de invocar a un do- 
cumento por nombre, lo ideal sería señalarlo 
en pantalla con algo que permitiera saber 01 
ordenador lo que quiero que haga, 
El segundo punto se llama RATON, y con- 
siste en un periférico que refleja su desplaza- 
miento por la mesa de trabajo en pantalla me- 
diante una pequeña flecho, de tal manera que 
todo lo que hay que hacer es mover el ratón 
por lo mesa hasta que el cursar de pantalla 
apunte 01 documento, luego ¡click!, pulsamos 
el botón del ratón y la máquina sabe que de- 
seamos editar un documento, por lo que ella 
solicito cargará en memoria, no sólo el docu- 
mento, sino también el procesador de textos. 
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Demasiada memoria 
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La gente de Xerox, además de ingenio y ne- 
cesidad de un entorno de programación ade- 
cuado a símbolos, tenía dinero de sobro y unos 
ordenadores muy potentes, caracterizados por 
la famoso multitarea, es decir, lo posibilidad 
de ejecutar varios programas independientes 
al mismo tiempo (concurrentemente). 
Por esta razón, el tercer punto se llamó ven- 
tanas, y consistía en dividir la pantalla en tan- 
tas porciones como fuera necesario, super- 
puestas o no, para poder mostrar 01 opera- 
dor lo que estaba pasando con los distintos 
procesos que en ese momento se estaban eje- 
cutando, todo ello, naturalmente, dirigido con 
el ratón, con un solo dedo. 
Ya que tenemos, ratón e iconos, ¿por qué 
no permitir que las ventanas puedan 
ampliarse, disminuirse o moverse 
por la pantalla de acuerdo con mis 
necesidades? 
Ese fue el cuarto punto del nuevo entorno 
de programacion, y, por darle algún nombre, 
podríamos decir que convirtió lo pantalla de 


ot 


un ordenador en algo infinitamente flexible, 
casi casi como una mesa de trabajo por la que 
pueden desplazarse papeles y objetos al gus- 
to del «usuario» 
¡Fíjese bien!: al gusto del usuario, 
para variar; no al de la máquina. 
El resultado final de este titánico esfuerzo de 
creatividad, ingenio y programación fue un hí- 
brido lenguaje-de-programación-de-desarro- 
110, llamado SMALL T ALK. 
Y ahí se quedó lo cosa, los Xerox felices con 
su nueva herramienta y los usuarios de orde- 
nadores ignorantes de la existencia de algo 
que les evitaría horas de manuales y de crisis 
nerviosas. 
¿Que por qué? Por dinero, claro. No to- 
do el mundo podía permitirse tener en su ca- 
sa un ordenador como los de Palo Alto, y se- 
gún lo Ley de Máxima Fatalidad el SMALL- 
T ALK requería ingentes cantidades de memo- 
ria para funcionar. 
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Llega Mac Intosh 


Como se suele decir, transcurrieron bucóli- 
cos años en los que miles de usuarios noveles 
se vieron sometidos a tortura con el entorno 
de programación que se llamó Maclntosh, de 
Apple. 
Antes que el Mac estuvo el Lisa, que incor- 
poraba las ideas del SMALL T ALK, pero pasó 
sin pena ni gloria debido a los precios (10,000 
dólares) que ostentaba, 
En fin, el Mac fue el primer ordenador per- 
sonal que se manejaba con un entorno WIMP 
(ventanas, íconos, ratón y menús) a un pre- 
cio razonable (no muy razonable). 
Armó tal revuelo, que de pronto todo el 
mundo se puso a hablar de que los ordena- 
dores debían ser «amigables», fáciles de usar, 
y que debía pensarse sobre todo en el grupo 
mayoritario que no sabía programación, ni 
quería saberla , Tan sólo pretendían usar una 
herramienta de trabajo con la máxima como- 
didad posible. 
Los manuales de usuarios y los sistemas ope- 
rativos basados en comandos comenzaron a 
ser vistos con malos ojos; inevitablemente se 
cayó en la exageración, 
Como por arte de magia, justo en ese mo- 
mento se hicieron de uso común máquinas con 
microprocesadores muy potentes y grandes 
cantidades de memoria RAM, y la idea de Ap- 
pie (y de Xerox) corrió por las mentes de los 
diseñadores y las casas de software como un 
reguero de pólvora: «los comandos han 
muerto, viva el ratón». 
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Por favor l IBM 1 ¿qué te 
parece la idea? 


Mós de uno empezó a frotarse las manos 
pensando en el dinero que podría sacarse de 
la nueva moda, pero para que el negocio fue- 
ra significativa mente jugoso habría que ver 
¿qué pasa con 18M? 
Los entornos WIMP desde luego que corre- 
rían en un PC si alguien se tomaba la moles- 
tia de escribirlo, pero, ¿se vendería? 
Digital Research (CP/M) pensó que sí, y creó 
un sistema operativo basado en esta filosofía, 
preparado para correr bajo el sistema ope- 
rativo de I BM, el «Gestor Gráfico de en- 
tornos», en inglés GEM (Graphics Environ- 
ment Manager). 
Los comienzos fueron difíciles, pero al ca- 
bo de un tiempo los ejecutivos usuarios de IBM 
fueron capaces de manejar el ratón y obser- 
var por sí mismos las ventajas de un entorno 
GEM en términos de tiempo de aprendizaje 
y dinero ahorrados, por lo que la idea origi- 
nada en Xerox y divulgada por Apple sentó 
plaza definitivamente en el elitista mundo del 
I BM pc. 
Una vez recibido el espaldarazo, GEM se 
adaptó a otros ordenadores con microproce- 
sadores diferentes del 8088 de I BM, y su ra- 
dio de acción se extendió consideramente. Co- 
menzaron a aparecer paquetes de software 
basados en GEM, bien desarrollados por la 
propia Digital Research, bien por otras com- 
pañías (GEM Write, GEM Paints GEM Draw, 
etc...). 
Esta es, a grandes rasgos, la historia de los 
sistemas operativos «amigables», basados en 
el sistema WIMP, y los usuarios no especiali. 
zados en informática creo que nunca podrón 
agradecérselo lo suficiente a los tres protago- 
nistas del drama: Xerox, Apple y Digital Re- 
search. 
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Conscientes de todo ello, cruzamos mental- 
mente el umbral del SIMO para ver de cerca 
el «state of the arf» de los entornos GEM 
en 1985. 


GEM en el SIMO 


-' 


." 

'\... 


Las móquinas capaces de ejecutar GEM o 
su homólogo Microsoft Windows pueden di- 
vidirse en dos grandes grupos: IBM y compa- 
tibles y los demós. 
Al 1MB, que aparte de ser IBM y poseer una 
de las mayores bibliotecas de software del 
mundo es un ordenador notoriamente obso- 
leto por concepción y tecnología, el GEM le 
viene algo grande. 
Se requiere un PS considerablemente amplio 
unas 512 K, configuración PC standard 128 
K) para correrlo, y el microprocesador 8088 
de Intel, corazón del PC, no es exactamente 
la última maravilla tecnológica. Pero, en f.in, 
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funciona y es un IBM. La verdad es que las 
pantallas que tuvinos ocasión de admirar del 
GEM Paint en el stand de Digital Research eran 
bastante espectaculares, aunque costó lo su- 
yo cargar el programa: se «colgaba» una 
y otra vez. 
En cuanto a los compatibles, el panorama 
es muy confuso y variopinto, 
GEM y MS Windows correrán en todas las 
máquinas que porten una determinada versión 
del sistema operativo MS DOS, pero en pres- 
taciones y velocidad de ejecución depende del 
diseño de la máquina y del microprocesador 
que lleven (el 8086 es mucho más rápido que 
el 8088). 
Lo que tanto 1MB como sus compatibles pa- 
recen estar de acuerdo es en imponer unos 
precios completamente disparados para las 
prestaciones de sus equipos, teniendo en cuen- 
ta el estado actual de la técnica y otras má- 
quinas que, como luego veremos, poseen su- 
periores «perfomances» a unos precios muchí- 
simo más bajos. Si no me cree, vaya a un con- 
cesionario 1MB y eche cuentas de lo que ne- 
cesita para correr GEM en su pc. 
Las joyas del SIMa en cuanto a entornas 
WIMP, en mi opinión fueron sin duda los APRI- 
COT y los ATAR!. 
Apricot presentó incialmente un modelo, el 
F1 E con un entorno WIMP de su propia cose- 
cha, el «Activity», que ha resultado ser un 
auténtico desastre porque enlentence terrible- 
mente la mecánica de trabajo con el ordena- 
dor. 
Visto esto, Apricot optó por incorporar GEM 
a sus máquinas, y le ha quedado muy bien. 
GEM necesita un mínimo de 512 de RAM, por 
lo que cualquier modelo Apricot que los im- 
plemente debe doblar su configuración bási- 
ca, fijada en 256 K. 
Los Apricot de la serie F eran pequeños y 
bonitos, ligeros y manejables, Tuvieron oca- 
sión de ver GEM en acción yero algo impre- 
sionante, 
Además Apricot ha decidido rizar el rizo en 
cuanto a lo que se refiere al ratón y al tecla- 
do. Ambos periféricos están unidos al orde- 
nador mediante rayos infrarrojos, lo cual im- 
plica un máximo de manejabilidad, pero les 
obliga a estar enfocados hacia la unidad cen- 
tral. Existe, no obstante, una conexión por fi- 
bra óptica a guisa de cable para los que no 
se fían demasiado de los infrarrojos, aunque 
por lo que vimos nosotros no falla en absoluto. 
Por otra parte, estos ordenadores son sis- 
temas MS DOS, para mantener compatibilidad 
con IBM, y GEM es simpfemente una aplica- 
ción más, no el sistema operativo de base. 
Al precio de 210,000 ptas., creo que 256 
K RAM, un microprocesador 8086 de autén- 
ticos 16 bits, MS DOS y teclado con una uni- 
dad de disco de 3,5 pulgadas no está nada 
mal, aunque para correr GEM la broma se po- 
ne en cuatrocientas y muchas mil pesetas, con- 
tando con dos unidades de disco y sin incluir 
el monitor. 
Apricot también presentó un gran ordena- 


dar, llamado Apricot XEN, tipo IBM AT pero 
con un mego de memoria RAM y un sistema 
operativo tipo WIMP, Microsoft Windows, que 
al parecer es multitarea, cosa de la que el 
GEM no es capaz, 
No pudimos observar en detalle cómo tra- 
bajaba MS Windows, ni otras máquinas apar- 
te del Apricot que lo implementaran. El coste 
del equipo ascendía a cerca del millón de pe- 
setas, 
Queda la, a nuestro juicio, auténtica vedette 
del SIMa 85, el ATARI520 ST, el cual cumple 
perfectamente el lema de Atari «potencia 
sin precio», 
Vimos 2 configuraciones, el 520 ST, con 512 
K de RAM y el 520 ST +, que lleva nada me- 
nos que una mega de memoria central. 
Ambas versiones están dotadas con el 68000 
de Motorola como CPU, de 16/32 bits, y po- 
seen dos sistemas operativos: el GEM y el TOS. 
Este último es una versión del CO/M 68 K, 
adaptación hecha por Digital Research a los 
sistemas basados en el 68000 del CO/M 
«norma!», que no tuvimos ocasión de ver 
funcionando, por lo que desconocemos sus ca- 
racterísticas. 
De GEM poco más hay que hablar, aunque 
verlo en acción en el520 era un auténtico es- 
pectáculo, por la rapidez con que se realiza- 
ban las tareas, la belleza de los iconos y ven- 
tanas y la comnplejidad de las operaciones de 
acceso al tándem disc%rdenador que podían 
llevarse a cabo con un solo dedo, ratón en ris- 
tre. 
En el stand de Investrónica estaban mane- 
jando el GEM Paint, y podían oírse murmu- 
llos de asombro de los espectadores con toda 
la razón del mundo. Es difícil explicar con pa- 
labras una situación y un programa concebi- 
do para manejarse a través de símbolos e imá- 
genes, pero los dibujos y lo que se podía ha- 
cer con ellos en el Atari es simplemente increí- 
ble, 
Investrónica nos aseguró que el 520 ST se 
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venderá en unos 15 días (contando a partir 
del 19 de noviembre), a un precio de una 
195.000 ptas, incluyendo el ordenador, mo- 
nitor monocromo, unidad de disco, ratón y al- 
go de software, como GEM, GEM Paint, GEM 
Write, DR Basic y DR Lago. 
EI520 ST + se venderá también en España, 
pero posteriormente a su hermano pequeño, 
a un precio de una 50.000 ptas. más. 
Respecto al software, pudimos ver los catá- 
logo de Atari en el stand de Atari, y vimos de 
todo: iu
gos, gestión y lenguaje de programa- 
ción de todos los tipos. 
En 
n, una maravilla de ordenador a un pre- 
cio ridículo por las prestaciones que ofrece, 
No cabe duda de que el SIMa 85 muestra 
cómo será la próxima generación de ordena- 
dores personales que habrá en nuestras ca- 
sas: estarán basados en microprocesadores 
poderosos, tendrán gran cantidad de memo- 
ria RAM y un sistema operativo tipo WIMP, 
bien el GEM, o MS Windows, o lo que sea que 
venga detrás. 
De momento, el Maclntosh, los Apricot, el 
IBM con GEM y el Atari son ya una realidad 
en nuestras tiendas, 
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En los últimos artículos de Programación hemos analizado 
exhaustivamente cómo pueden crearse nuevos comandos en el 
8asic Amstrad, mediante el sistema RSX, y también cómo se 
manipulan las interrupciones, que son, y la utilidad que tienen. 
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'ra remac lar el clavo com- 

ta nte so
 .;ste asunto, hemos 
pensa' en inc10 r un ejemplo prác- 
tico qu reúna P ;X e interrupciones 
er/una s la utili. ad, concretamente 
se ha cre do ur nuevo comando Ba- 
sic, «:ReJ' '», \' e permite activar un 
reloj 
e ti p' real por interrupción. 
En "0 Je aquellas personas 
que no h an seguido los artículos 
anteriores, vamos a efectuar una 
breve recapitulación sobre los tema 
de los que estamos hablando. T am- 
bién servirá para refrescar la memo- 
ria un poco. 


Breve descripción 
de una RSX 


El Amstrad posee una RAM y una 
ROM, como todo el mundo sabe. Sin 
embargo, a diferencia de otros or- 
denadores, los que lo diseñaron pre- 
veíeron la posibilidad de que dicha 
ROM pudiera ser potencia con otros 
programas, que denominaron RSX, 
extensiones residentes del sistema. 
Estas RSX se identifican por su 
nombre precedido del signo «:». El 
sistema operativo del ordenador se 
encarga, él solito, de buscarlos yeje- 
cutorlos, siempre que se le informe 
debidamente de su existencia. 
La inmensa ventaja de las RSX es 
que el sistema también las busca en 
RAM si no hay otras ROMs conecta- 
das, y las ejecuta. Esto nos permite 
ampliar el Basic del Amstrad muy fá- 
cilmente, aunque es preciso usor len- 
guaje máquina. 


14 MlaOH088Y AMSTRAD 


Eso en cuanto a las RSX. Respecto 
a las interrupciones, recordemos 
que, desde que se enciende el orde- 
nador, el microprocesador no cesa 
en ningún momento de ejecutar un 
programa en lenguaje máquina que 
llamamos sistema operativo o firm- 
ware. 


Más de un programa 
simultáneamente 


Este programa es extremadamen- 
te complejo, y la tarea se complica 
con la necesidad de atender a otros 
procesos que normalmente transcu- 
rren de forma independiente al 
«programa principal», como por 
ejemplo, el teclado. En efecto, nadie 
nos impide pulsar una tecla mientras 
un programa, Basic o no, se esté eje- 
cutando. 
Frente a esta situación, se pueden 
usar dos estrategias: 
- El Z80 está continuamente exa- 
minando los periféricos o lo que sea 
para ver si se requiere su atención 
para otras tareas urgentes. 
- El Z80 ignora cualquier tarea 
secundaria hasta que recibe una se- 
ñal de interrupción, abandona tem- 
poralmente la tarea principal, atien- 
de y resuelve la secundaria y conti- 
núa con la primera desde donde la 
dejó. 
Normalmente se adopta la segun- 
da aproximación, porque ahorra 
tiempo, y por tanto dinero, de pro- 
ceso. 
Los creadores de Amstrad han 
previsto un complejo sistema de r.,a- 
nejo de interrupciones para un orde- 
nador de su categoría, permitiendo, 
entre otras cosas, asignar una prio- 
ridad a una serie de sucesos por in- 
terrupción. 
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Pero lo más importante para no- 
sotros es que existe una forma stan- 
dar de notificar al sistema la presen- 
cia de un proceso interruptor, como 
ya vimos, de modo tal que sólo te- 
nemos que escribir la rutina necesa- 
ria y el firmware se encarga de lo 
demás. 
Así es posible, de una manera ca- 
si casi elemental, realizar varios pro- 
cesos a la vez, esto es, la famosa 
multitarea. 
Teniendo esto en mente, vamos a 
analizar lo que hemos hecho en es- 
te artículo. 
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El comando :reloi 


Una de las tareas que parecen es- 
tar creadas para funcionar por inte- 
rrupciones son los relojes de tiempo 
real, que casi todos los grandes or- 
denadores (1 BM) tienen. En efecto, 
para que el reloj sea efectivamente 
de tiempo real, debe actualizarse ca- 
da segundo, pero sin interferir con 
cualquier otro programa que el sis- 
tema esté ejecutando. 
Por otra 'parte, para manejar 
nuestro reloj lo más lógico sería dis- 


poner de un comando Basic al efec- 
to, que actuara como todos los de- 
más, en modo directo o en modo 
programa, 
El nuevo comando se llama «:re- 
loj», debe llevar delante el signo «h> 
y su sintaxis y función son las siguien- 
tes: 
1) Orden: :RELOJ. 
Esta orden, sin ningún parámetro, 
permite poner en hora el reloj. Para 
ello, se abre una ventana en la par- 
te superior de la pantalla donde se 
nos pide horas, minutos y segundos. 
Una vez introducidos, se abre una 
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nueva ventana en la esquina supe- 
rior izquierda de la pantalla y el re- 
loj comienza a funcionar indepen- 
dientemente de cualquier otro pro- 
grama. 
2) Orden: :RELOJ, 1. 
La presencia del parámetro 1 des- 
pués de la orden indica al ordena- 
dor que deseamos que el reloj sea 
invisible, pero que continúe funcio- 
nando. 
Por tanto, la ventana se borra y 
disponemos de toda ella para nues- 
tro programa. 
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3) Orden: :RELOJ, 2. 
Este parámetro implica que la ven- 
tana del reloi, con la hora actualiza- 
da, aparezca de nuevo en la panta- 
lla, 


Las desventaias 
de las interrupciones 


Obsérvese que las interrupciones 
presentan una desventaja bastante 
patente, y es que enlentecen la ve- 
locidad con la que se ejecuta el pro- 
grama principal, en este caso el Ba- 
sic. Por tanto, debemos implementar 
una manera de desactivar nuestro 
reloj completamente. 
Hemos pensado en una que espe- 
ramos resulte clara y sencilla; la or- 
den es: :RELOJ. 
Es decir, usamos exactamente la 
misma sintaxis para matar al reloj 
que para inicializarlo. El programa 
toma en cuenta si el comando se eje- 
cuta por primera o segunda vez, y, 
si es la segunda, desactiva la inte- 
rrupción completamente. Para que 
pueda volver a funcionar, es nece- 
sario usar :RELOJ de nuevo. 
Resumiendo: 
:RELOJ. Iniciolizo el reloj. 
:RELOJ, 1. Borro el reloj de ponto- 
l/o. 
:RELOJ, 2. Lo muestro de nuevo. 
:RELOJ. Al usorlo por segundo 
vez, /0 «mata». 
El programa en lenguaje ensam- 
blador está localizado en la direc- 
ción & AOOO. Las partes de las que 
consta están separadas por líneas en 
blanco, y el método de habilitar in- 
terrupciones e inicializar una RSX ya 
es conocido de nuestros lectores, así 
como el paso de parámetros desde 
Basic a una rutina en máquina, por 
lo que no lo repetimos aquí. 
Otro tanto ocurre con las llamadas 
al firmware, ya que la mayoría han 
sido analizadas en anteriores artícu- 
los en esta n.isma sección. 
Aquéllos q'ue no dispongan de un 
ensamblador o que prefieran simple- 
mente usar el programa tienen a su 
disposición un cargador Basic (pro- 
grama número 1), que introduce el 
código máquina en las posiciones de 
memoria adecuadas, activa el nue- 
vo comando y acto seguido se bo- 
rra de la memoria, por lo que es im- 
prescindible salvarlo en cinta/disco 
antes de ejecutorio, 
16 MICROH088Y AMSTRAD 
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390 LD (MODO) ,A 
40e INIC: LO A,I 
410 CALL SETMOD 
420 CALL CLS 
430 LD HL...e3eJ 
440 CALL LOCATE 
450 LD HL,HORA 
460 LD B,6 
470 CALL SUCI 
4B0 LD IX,HOR2 
490 CALL INPUT 
500 LD HL,MIN 
510 LO B,19 
52e CALL BUCI 
530 LO IX,MIN2 
54e CALL INPUT 
559 LD HL.SEC 
560 LD S, J I 
579 CALL BUCI 
5S0 LO IX.SEC2 
599 CALL INPUT 
609 LD HL,
0D93 
619 CALL LDCATE 
629 LD HL,CORREC 
630 LD B.16 
640 BUC2: LD A, (HL) 
650 CALL PRINT 
660 INC HL 
670 DJNZ BUC2 
6BO CALL (<JAIT 
690 CP S" 
790 JR NZ.JtIlC 
719 LD A. (NDDD) 
72e LALL SETt10D 
730 CALL CLS 
740 CALL INTER 
750 CALL ACTIl) 
76e RET 
770 
7B9 SUCI: LD A.(HU 
790 CALL PRINT 
Bee INC HL 
SIO DJNZ BUCI 
820 RET 
S30 
84« CORREC: DEFM CORRECTO (S./N 
850 HORA: DEFI1 "HORA: 
860 MIN: DEF
I MINUTOS: 
S70 SEC: DEFM SEGUNDOS: 
880 
899 INPLIT: LD B.2 
90e TECLA: CALL WAIT 
919 CP "9' 
no JR C,TECLA 
93e CP -9 +1 
949 JR NC,TECLA 
959 LD (IX) ,A 
960 INC IX 

7
 CALL PRINT 
9S9 DJNZ TECLA 
999 INC IX 
1900 RET 
1010 SINO: DEFS I 
1820 
1939 8UFER: DEFS 6 
1940 MODO: DEFS 1 
1050 PEN: DEFS 1 
1969 PAPo DEFS 1 
1079 RSXCOM: EOU 
8CDI 
1980 GETMOD: EQU 
8CII 
1990 SETMOD: EQU 
BCOE 
1100 CLS: EQU 
S86C 
1110 LOCATE: EQU 
8875 
1120 WAIT: EOU 
BB06 
1130 PRINT: EQU 
B85A 
1140 WINDDW: EQU 
8B66 
1150 SETPEN: EOU 
88Q9 
llbO 5ET PAP : EQU 
BB96 
1170 GETPEN: EQLI 
B893 
.j 1 BO GETPAP: EQU 
8899 
1190 CLEAR: EOU 
884E 
1200 GETCUR: EQU OB878 
1210 CUR_SI: EQU 0887B 
1229 CUR_NO: EOU 
BB7E 
1230 CANAL: EQU OB884 
1248 lNTSI: EOU 08CE9 
1259 JtHNO : EOU 
8CEC 
1260 ACTlNT: EQU OBCEF 
1270 FLAG: DEFS I 
1288 
1290 INTER: LD HL,SLOCK 
1300 LD 8,129 
1310 LD DE, EVENT 
1320 ,Ip ACTI NT 
1330 
1349 ACTI V : LD HL,CLOCK 
1350 LD DE ,50 
1360 LD SC,50 
1370 JP INTSI 
1380 
1390 DESAC: LD HL,cLOCK 
14eo JP INTNO 
1410 
1429 CLOCK: ¡'EFS 6 


PROGRAMA I 


10 FOR im
AOOO TO 
A227 
20 READ d 
30 PO..:E i .VAL("t:"+a'S) 
40 NEXT i 
50 PRINT "CODIGO MAOUINA 


60 CALL t
AOO(l 
70 PRINT "... y ACTIVADO." 
80 PRINT"PULSE UNA TECLA PARA BORRA 
R EL PROGRAMA SASIC DE MEMORIA" 
90 WHILE INkF.Y"'
"":WEND:NEW 
100 DATA 1 ,9.A0,21 ,14,A0,C3,DI,8C,E 
110 DATA AO,C3.IS,A6,52,45,4C,4F,CA.0 
128 DATA 0. e le. 0 ,FE, 1 ,28,21 ,3A, 5 
130 DATA Al ,FE,1.2S,C.3E,1 ,32,5,Al 
146 DATA 3C.32,F.AI ,C3.4E.AO,3E.6,32 
15e DATA 5,AI,CD,4E.S8,CO,6C,SS,C3,27 
160 DATA Al. DD, 7E, 0 ,32. F , Al, FE, 2,28 
170 DATA 6,CD,4E,BB,CD.6C,8B,C9,CD,11 
180 DATA BC,32,C.Al,3E.I,CD,E.BC.CD 
190 DATA 6C,BB,21.1 .3,CD.75,BS.21 ,D6 
200 DATA AO,6,6,CD.SS.A0.DD,21 .IF.A2 
210 DATA CD,E8,A0,21,D6.Ae.6,A.CD.88 
229 DATA AO,DD,21.22,A2.CD,EB,A0,21,E8 
236 DATA AO.6.8.CD,8S.AO,DD.21 .2S,A2 
2413 DATA CD,EB,A0,21 ,3,D,CD.75.88,21 
2S0 DATA C0,A0,6,10.7E.CD.SA,BB.23,10 
260 DATA F9,CD.6,BS.FE.53,20,AC,3A.C 
270 DATA Al ,CD,E,BC.CD.6C.BB.CD.16,Al 
2B0 DATA CD.IB.AI .C9,7E,CD,5A,SS,23,IO 
290 DATA F9.C9,43,4F.52.52,45,43.54,4F 
3ee DATA 20.23.53.2
.4E,29,20.20.48,4F 

10 DATA 52,41 ,3A,20,20,4D,49.4E.5
,54 
3213 DATA 4F.53,3A.20.28.53,45.47,55.4E 
33e DATA 44,4F.53.3A,20,6,2,CD,6,BB 
340 DATA FE, 30,38. F9. FE. 3A. 30. F
 I DC . - . 
35e DATA 0,DD,23,CD,5A,B8,le.EB.DD.2
 
368 DATA C9.e,e,e,0,e,0,9,O,8 
3713 DATA e,O.21.33.A1,6,81,11,3A,AI 
389 DATA C3.EF,8C,21 ,2D,AI.II.32.0.1 
390 DATA 32,0.C3,E9.BC,21,2D.AI,C3,EC 
400 DATA BC.
.
,0.0.O,O,0,
,
 
410 DATA ",e,0,O.CD,78,SB,22,9C,AI 
420 DATA CD.9E.Al .3A.F,Al ,FE,2,C9,CD 
430 DATA 93.SB,32,O.AI ,3E,1 ,CD,B4,BB 
44
 DATA 20,O,16.7.IE.0.2E.1 ,CD,66 
450 DATA 8B,3E.3,CD.99,SB,CD.7E,BB,21 
46(1 DATA 1,1 ,CD.75.88.21 ,lF,AZ.6,S 
470 DATA E5,C
,7E.CD.5D.BB,Cl ,El ,23.10 
480 DATA F5.3E,e,CD,84,88,26,O,16.S0 
_' H 2E.I ,lE.I8,CO,66.SS,3A.D,AI 
(¡ATA CD, 90 ,BS. 2A. 9C, Al, CD. 7B, B8, C3 
DATA 75,8B,0,0.3A.2(",,..,,.FE.3S:'.¡u 
DATA 7,3E,39,32,2ó,A2,18,S.3C,32 
DATA 26,A2,C9,3A,25.A2,FE,35.2e,7 
(¡ATA 3E .30,32, 25,A2, 18.5, 3C. 32,25 
DATA A2,C9,3A,23,A2.FE.39,20,7.3E 
DATA 3e.32,23,A2,18,
,3C,32.23,A2 
DATA C9.3A,22,A2,FE,3
,20.7,3E,30 
DAT
::. .32.22,A2,IS,5.3C,32,22,A2,C9 
DATA 3A,IF.A2.FE,32,20,9,3A,20.A2 
OATA FE,33,20.19,18,7,3A,20.A2,FE 
DATA 39,20,7.3E,30,32,20,A2,le,
 
DATA 3C.32.2a,A2,C9,3A,I
,A2,FE,32 
DATA 20,6.3E.30,32.IF,A2.C9,3C,32 
DATA IF.A2,C9,30,30,3A,30,30,3A,39 
DATA 30.0,0,a,9.0,e,0,0,0 
10 DRG 
20 LD 
30 LD 
40 JP 
50 
",0 TABLA: 
70 
S0 NA/'IE: 
90 
100 
110 ESPACE: 
120 
130 RELOJ: 
140 
1 
0 
160 
17e 
180 
190 
200 
210 
220 
230 
240 PASAI: 
250 
260 
270 
286 
2'?0 
300 PASA: 
310 
329 
330 
340 
350 
360 SAL: 
370 
380 E>lP: 


50 a 
510 
520 
539 
540 
550 
560 
57£1 
580 
590 
600 
610 
620 
630 
640 
6S0 
A000 
A000 
A003 
A006 


0109AO 
2114AO 
C3DI8C 


A009 OEA0 
AOOS C31BA0 
AOOE 52454C4F 
A912 CA 
A013 00 
AOl4 
A018 FEOI 
AelA 2821 
AOIC 3AO::.A1 
A01F FEOl 
A021 280C 
A923 3E01 
A025 320SAl 
A02S 3C 
A029 320FAI 
A02C C34EA0 
Ae2F 3EOO 
A031 320SAI 
A034 CD4ESS 
A037 CD6CBB 
A03A C327A 1 
""O 3D DD7E00 
A040 320FAI 
A
43 FE02 
A045 2806 
A047 CD4EB8 
A04A CD6CBS 
A04D C9 
A04E CDIIBC 


CARGADO. . . 



A000 
SC,TASLA 
HL.ESPACE 
RSXCOM 


DEFW 
IAME 
JP RELOJ 
DEFM "PELD' 
DEF8 "J +
80 
DEFS o 
DEFS 4 


CP 
JR 
LD 
CP 
"'R 
LD 
LD 
INC 
LD 
JP 


1 
Z.PASA 
A. <SINO) 
1 
Z,PASAI 
A.I 

 SINOi.A 
A 
(FLAGJ.A 
E
IP 


A051 320CAI 
A054 3E91 
A056 CD0EBC 
A059 CD6CBB 
A05C 210163 
A65F CD7588 
A062 21 DOAO 
A665 6606 
A967 CDBBAO 
A86A DD211FA2 
A06E CDEBA0 
A371 21D6A0 
A974 969A 
A076 CD8BAO 
A079 DD2122A2 
AO 7D CDEBAO 
AOS6 21 EOAO 
A083 069B 
A0S5 CDS8AO 
AOSS DD2125A2 
AOSC CDEBA0 
A08F 21030D 
A0n CD75BB 
AOQ5 21 COA0 
A0 Q 8 861 e 
H,(i9A 7E 
A69B CD5ASB 
A09E 23 
A09F IOF9 
AMI CD0688 
A0A4 FE53 
A0A6 20AC 
MA8 3AOCAI 
HOAS COOESC 
A0AE CD6CBB 
A0S1 CDleAl 
A084 CDIBAI 
Ae87 C9 


A0B8 7E 
A6B9 CDSABS 
':'08C 23 
AOS¡, IOF9 
A(18
 C9 
Mca 434F5252 
AeDO 484F5241 
AOD6 204D494E 
AOE0 28534547 


AOES 0602 
A0ED CD06SS 
AOFe FE30 
A0F2 3SF9 
AOF4 FE3A 
AOF6 30F5 
A0 F8 DD770 o 
AOFB DD23 
A0FD CD5ASB 
AI('O 10EB 
AI02 DD23 
A 1 04 C9 
AI05 


AI06 
AI0C 
AI0D 
AlOE 
SCDI 
SCII 
8C0E 
BB6C 
BB75 
SS06 
SB5A 
8866 
8B90 
8S96 
ESQ3 
8B99 
SB4E 
SB78 
8S7B 
8S7E 
SSB4 
8CE9 
8CEC 
SCEF 
A10F 


LD A,O 
LD (SIND) ,A AIIO 2133AI 
CALL CLEAR AI13 6681 
CALL CLS AI15 113AAl 
JP DESAC AllS C3EF8C 
LD A. (IX+0) AIIB 212DAI 
LD (FLAG) .A AIIE 113200 
CP 2 A121 013209 
JR 2.SAL AI24 C3E9SC 
CALL CLEAR 
CALL CLS AI27 212DAI 
RET A12A C3ECSC 
CALL GET>lDD AI2D 



.< 


A133 1430 BLOCK: OEFS 7 AI80 2fll:) 7 2020 JR NZ,SEGU2 
1440 A1BB 3E30 283B LO A, 8 
A13A C07BBB 1450 EVENT: CALL GETCUP AlBA 3225A2 2048 LO (SEC2 1 ,A 
AI30 229CAI 1460 LO (POS),HL AlBO 1805 2050 JP HINU 
AI40 CD9EA1 1470 CALL TI HE Al BF 3C 2060 SEGU2: INC A 
A143 3A8FAl 1480 LO A, (FLAG) AICO 3225A2 2070 LO (SEC2J .A 
AI46 FE02 1490 CP 2 AIC3 C9 2880 RET 
AI48 C8 1
00 RET ,a 2090 
AI49 CD93BB 1510 CALL GETPEN AIC4 3A23A2 2100 HINU: LD A,(MINl) 
320DAI 1520 LD (PEN) ,A AIC7 FE39 2110 CP 9 
AI4C 2120 JR N2 ,
llNU2 
AI4F 3EOl 1 
30 LD A,I AIC9 2007 
AI51 CDB4BB 1540 CALL CANAL AICB 3E30 2130 LD A, "0' 
AI54 2600 1550 LD H,O Al CD 3223A2 2140 LD (MINI) ,A 
AI
6 1687 1560 LO 0,7 AlD0 1805 21
0 JR MINU3 
AI
B IE00 1570 LD E.0 AID2 3C 2160 HINU2: I'
C A 
AI5A 2E01 1588 LD L .1 AI03 3223A2 2170 LD (MIt") ,A 
AI5C CD66BB 1
90 CALL W I ND01
 AID6 C9 2180 RET 
AI
F 3E03 1600 LO A,3 2190 
AI61 C090BB 1610 CALL SETPEN AID7 3A22A2 2200 MINU3: LD A. (HIN2> 
AI64 CD7EBB 1620 CALL CUR_NO Al DA FE3
 221e CP "
" 
AI67 210101 1630 LD HL."0101 AIDC 2007 2220 JR NZ,MINU4 
AI6A CD7
BB 1640 CALL LOC"TE AIDE 3E30 2230 LD A. "0" 
AI6D 211FA2 165B LO AIE0 3222A2 2240 LD <t'1IN2) .A 
HL,HOR2 JR HORA! 
AI78 8608 1660 LD B.8 AIE3 1805 2258 
AI72 E5 1670 BUC: PUSH HL Al E5 3C 2260 HINU4: INC A 
AI73 C5 1688 PUSH BC AIE6 3222A2 2270 LO (
1l'
2) .A 
AI74 7E 1690 LD A. (HU AlE$' C9 2288 RET 
A17
 CD
DBB 178e CALL "BB50 2290 
AI78 CI 1710 POP BC 
AI79 El 1728 POP HL 
A17A 23 1730 INC HL 
AI78 10F5 1740 OJN2 BUC 
AI70 3E00 1750 LD A.e 
A17F CDB4BB 176B CALL CAtlAL 
AI82 2680 1770 LD H.O 
AI84 1650 1780' LD 0,80 
A!86 2E01 1790 LO L.I 
AI88 lEI3 1800 LO E,24 
Al8A C066BB 1818 CALL IJIND()(,J 
AI8D 3AODAl 1820 LD A, (PEN) 
A190 CDQOBB IB30 CALL SETPEN 
AI93 2A9CAl IB40 LO HL, ,POS) 
A196 CD7888 18
0 CALL CUR_SI 
A19$' C375B8 1860 JP LOCATE 
1370 
AI9C 188B pos: t'EFS 2 
18
e 
AI9E 3A26A2 1988 TIME: LO A, (SECt ) 
AIAI FE39 IQI0 CP 9" 
AIA3 2887 1920 JR N2 ,SEGlN'J 1 
AIA
 3E30 I Q38 LD A. "0" 
AIA7 3226A2 1940 LO (SECt) .A 
AIAA 1805 1958 JR SEGlJ'12 
AIAC 3C 1 9 .00 SEGUN 1 : INC '" 
A1AD 3226A2 1970 LD (SEC1) ,A 
AlBO C9 1980 RET 
1990 
AIBl 3A2
A2 2808 SEGUN2: LD A. (SEC2) 
AlBO FE35 2010 CP 5 
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speciafistas 
en 
SOFTwARE 
'. a a ..- 
n 
pequeña y 
mediana 
empresa 
. 
.. 
. AMSTRAD 6128 
· AMSTRAD a256 
· ISM y tOh1patible 


C!J[!;" !J:!kw!b¡ne 
......- _J 
.......GABINETE DE INFORMATlCA 
· Clases de Informática 
sobre AMSTRAD 
EN GRUPOS ° INDIVIDUALES 
· Ordenadores AMSTRAD y 
periféricos 
Los mejores precios 
· Software a la medida 


. 
.. 
Programas"de gestión 
integrados 
- 
C/. Galileo, 25 
Entreplanta A 
Tels.447 97 51 . 447 98 09 
28015 Madrid 


ZURBANO,4 -:::4104763 
.28010 MADRID 


. , 
Pro I rarnAcclon 


Al EA :?Al FA2 2300 HORAl : LO A, (HOR2) 
AIE(I FE32 2318 CP 2" 
AIEF 2089 2328 JR N2.HORA1! 
AIFI 3A2(1A2 2330 LD A. (HORI) 
A1F4 FE33 2340 CP 3' 
AIF6 2010 2350 JR NZ . HORA2 
Al F8 1807 2360 JR CERO 
AIFA 3A20A2 23713 HORAII: LD A. (HDR1) 
AIFD FE39 2380 CP "9' 
A1FF 
007" 2390 JR N2 . HORA2 
A201 3E38 248e CERO: LD A, 0 
AL03 3220A2 24113 LD (HORI) .A 
A286 1805 2420 JR HORA3 
A208 3C 2430 HORA2 : INC A 
A2e9 3220A2 2440 LD (HORI) .A 
A2ec C9 245B RET 
A20D 3..1 FA2 2469 HORA3 : LD A. (HOR2) 
A210 FE32 2470 CP '2 ' 
A212 2006 2480 JR NZ,HORA4 
A214 3E30 2490 LD A, "0" 
A216 321Fh2 25(16 LD (rlOR2> .A 
A219 C9 25113 RET 
A2tA 3C '2'529 HORA4: INC A 
A218 3.21FA:2 2
30 LD (HDR;:),... 
A21E co 254B RET 
2550 
A21F 30 2568 HOR2: DEFB e 
iM22t' 3(1 2570 HORl : DEFB "O' 
A221 3t. 2580 DEFB " 
A222 30 2590 tIH
2: DEFB "8 
A223 30 2688 I'Ur"'l: DEFB O" 
A224 3A 2610 OEFB 
A225 30 2620 SEC2: DEFB "0' 
A226 30 2630 SECI: DEFB O" 


ACTINT 8CEF 
BUC AI72 
BUFER A106 
CLEAR BB4E 
COF:REC A0C0 
DESAC Al 27 
EVENT AI?A 
GETHOD BC 1 1 
HOR I A220 
HORAI Al EA 
HORA3 A20[' 
INPUT A0EB 
INTSI BCE9 
"111'41 A223 
MINU2 A 1['2 
",ODO AIBC 
PASA ';03D 
POS AI9C 
PSXCOt1 BCD I 
SECl A226 
SEGLNl AIAC 
SETPAP 6B Q 6 
TABLA ,0009 
I,JA IT BB06 


ETIQUETAS 


ACT!C) AIIB 
BUCI A8B8 
CANAL 8BBO 
CLOCY Al 2D 
CUR _NO BB7E 
EHP A04E 
FLAG AI0F 
GETPAP BB99 
HOR2 A21 F 
HORAII Al FA 
HORA4 A21A 
INTER AI18 
LOCATE BB75 
t11N2 1-1222 
I11NU3 AIO? 
NAME A08E 
PASAl AeZF 
PRI'H BB5A 
SAL A04D" 
SEC2 A22
 
SEGlIN2 Al B1 
SETPEN 8B?O 
TECLA AOED 
I,JI NOO(.J BB60 


BLOCK A133 
BUC2 Aa 9A 
CERO A201 
CLS BB6C 
CUR_SI BB7B 
ESPACE A014 
GETCUR BB78 
GETPEN 8B93 
HDRA Aa 00 
HORA2 A208 
INIC A054 
INTNO BCEC 
HIN A0D6 
f'l1NIJ HI C4 
MINU4 AIE
 
PAP Al eE 
PEN AI0D 
¡:;'ELOJ AO 1 S 
SEC ":"I:'EO 
SEGU2 A1BF 
SEmoo BCOE 
SHIO AJ 05 
TltlE AI9E 


Para que lus dedal 
no real,cen el trabajo duro, M.H, MIS. 
TRAD lo hace por li, Tados los I'llados que incluyan 
este lagot,po se encuentran a lu d,IPaSlá'on en un cos. 
selle mensual, so/¡Cilonoslo, 
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Una pareja de jóvenes 
enamorados, se ven envueltos 
sin comerlo ni beberlo en una 
angustiosa pesadilla en la que 
sus vidas corren grave peligro 
de muerte. 

o empe'ó en lo, labo- 
ratorios del Dr, Frank situados en la 
planta de su grandiosa mansión. 
En los cuales el diabólico Dr. ha 
desarrollado una terrible máquina 
capaz de petrificar al más pintado. 
El fruto del siniestro trabajo del Dr. 
Frank se llama Medusa y su poder es 
tan descomunal, que solamente unos 
segundos de exposición al rayo ma- 
léfico son suficientes para la petrifi- 
cación total. 
Frank, como buen investigador 
también ha realizado la máquina 
que hace posible el proceso de des- 
petrificación, tema que tendrá su 
oportuno tratamiento más adelante, 
Un día cuando Janet y Brad, la pa- 
reja de jóvenes enamorados, pasea- 
ban románticamente por los alrede- 
dores de la mansión, ven el anuncio 
de entrada libre para visitantes, que 
con el pretexto de enseñar a quien 
lo desee el interior de la magnífica 
casa, ha colocado el Dr, para con- 
seguir presas fáciles para sus expe- 
rimentos. 
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Frank encantado por la constitu- 
ción hercúlea del joven Brad, deci- 
de que es un bello ejemplar para ser 
convertido en decorativa estatua y se 
prepara para comprobar el funcio- 
namiento de medusa con seres hu- 
manos. 
Sin pensarlo dos veces apunta la 
máquina hacia Brad y el rayo le al- 
canza de lleno, comenzando el pro- 
ceso de petrificación, que en 10 se- 
gundos se completa. 
Janet que se encontraba fuera del 
radio de acción de Medusa, es afec- 
tada parcialmente quedando tempo- 
ralmente paralizada y peresencian- 
do cómo siniestros esbirros se llevan 
el cuerpo de su amado. 
Cuando recupera su estado nor- 
mal, un alma caritativa le revela que 
el único modo de devolver a su no- 
vio a la forma humana, es encontrar 
la máquina que realiza la despetrifi- 
cación. 
Pero la Desmedusa, que así se lla- 
ma la máquina, está fraccionada en 
componentes los cuales se encuen- 
tran repartidos por toda la casa. 
Janet solamente tiene que encon- 
trarlos y recomponer Desmedusa, 
para salvar a Brad. 


Misión difícil, porque solamente 
dispone de 100 minutos y por el he- 
cho de que por la mansión circulan 
extraños personajes que pueden 
acabar con ella. 
El Rocky Horror Show, es un jue- 
go emocionante, en el que el cono- 
cimiento de las distintas habitaciones 
y salas de la mansión es imprescin- 
dible para conseguir el éxito, 
Descubrir la habitaciones secretas 
y utilizar el ascensor a nuestra con- 
veniencia son armas claves. 
También es importante saber los per- 
sonajes que son mortales para noso- 
tros y los que solamente rebajan 
nuestra energía, 
El decorado de las distintas salas 
es muy acertado, con unos gráficos 
tipo cómic muy cuidados. 
El movimiento del ascensor que en 
su ascenso y descenso, mediante un 
suave SCROLL, tiene un tratamiento 
idóneo y el efecto producido es muy 
bueno. 
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Nuestro personaje, puede utilizar 
palancas y botones para abrir puer- 
tas, desactivar trampas, poner en 
marcha la calefacción y demás cosas 
que sólo se aprenden con un poco de 
práctica. 
El tiempo es factor determinante, 
para SALVAR A BRAD disponemos 
de 100 unidades de éste, las cuales 
al agotarse provocan nuestra muer- 
te. _ 
Podemos elegir entre jugar con Ja- 
net o con Brad, que en determinados 
momentos pierde sus ropas quedán- 
dose completamente desnuda, un 
aditamento gracioso. Una aventura 
con buenos gráficos y de duración li- 
mitada, con lo cual, evitamos el te- 
dio de ese tio de aventuras intermi- 
nables en las que nos dedicamos a 
vagar por parajes desconocidos en 
busca de no sé qué objetos y con un 
objetivo que tampoco conocemos, lo 
que después de varias horas de bús- 
queda nos induce a arrinconar el jue- 
go y dedicarnos a otra cosa. 
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109.500 Ptas. \ 
(Monitor fósforo verde) 
134.500 Ptas, 
(Monitor color), 
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EL AMSTRAD CPC 6128 INCLUYE EN SU 
SUMINISTRO: 
Teclado profesional de 74 teclas con 
unidad de disco 3" integrada. 
Monitor color o fósforo verde. 
Disco 3" con Sistema Operativo CP/M 
2.2 y lenguaje Dr. LOGO. 
Disco 3" con Sistema Operativo CP/M 
Plus y utilidades. 
Disco 3" con seis programas de 
obsequio. 
Manuales en castellano. 
Garantía Oficial AMSTRAD ESPAÑA. 
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CARACTERISTlCAS TECNICAS: 
Microprocesador l80 (4MHz) con' 
. 64K RAM Y 32K ROM (Mod, 464) 
. 128K RAM Y 48K ROM (Mod. 6128) 
Gráfico de alta resolución de hasta 640 
por 200 pixels. 
Unidad de cassette incorporada en el 
teclado (Mod. 464). 
Unidad de disco de 3" con 180K por 
cara integrada en el teclado (Mod. 
6 ¡ 28) - (Opcional en el modelo 464). 


I'Ivd del Med¡(erraneo. 9 - 28007 Madfld - Telex 47660 
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'MSTRAD PC 464 


- Texto en pantalla de 20, 40 Y 80 
columnas 
- Sistemas Operativos AMSDOS, CP/M 
n y CP/M Plus (con la unidad de 
disco). 
- Tres canales de sonido con 8 octavas 
moduladas independientemente, 
Altavoz interno y salida estéreo. 
- Salidas: Centronics, cassette o unidad 
de disco externa (según modelo), PCS 
mUltiuso, joystick, etc. 


I Te/s, 433 45 48 - 433 48 76 - FAX - 4332450 
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66.900 Ptas. -.J 
(Monitor fósfor verdel \ 
95.900 Ptas. 
(Monitor colorl. 
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EL AMSTRAD CPC 464 INCLUYE EN SU 
SUMINISTRO: 
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Teclado profesional de 74 teclas con 
cassette integrado. 
Monitor color o fósforo verde. 
Ocho cassettes de programas. 
Libro "Guía de Referencia Sasic para el 
Programador" 
- Manuales en Castellano. 
- Garantía Oficial AMSTRAD ESPAÑA. 
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Estas NAVIDADES HAY ORDENADORES 
MUY BUENOS... Y SON AMSTRAD 


GRUPO INDESCOMP 



e 


TOMP RS 


Los STOMPERS es un excelente y adictivo programa que incluye unas rutinas de scroll en 
máquina, aplicables a nuestros propios juegos, y una buena presentación que nos 
enseña a usar los caracteres gráficos. 


n la Tierra de 
Block, en el Norte de Blob, vivían fe- 
lices un grupo de granjeros que cui- 
daban a los pájaros Wob-Wob pa- 
ra aprovechar sus huevos. 
Sin embargo, un día, del Este de 
la Tierra de Grog, llegaron los dia- 
bólicos Stompers, completamente 
decididos a romperlos todos, Los 
granjeros, incomprensiblemente, no 
están muy de acuerdo, y han comi- 
sionado al intrépido Bod para que lo 
impida, armándole con misteriosos 
poderes que podrán ser usados en 
determinadas ocasiones. 
Podríamos advertiros de los peli- 
gros a los que Bod debe enfrentar- 
se, e incluso evitarlos, pero vamos a 
dejar que los descubráis vosotros 
mismos; total, unas vidas más o me- 
nos.. . 
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180 Bucle principal 
330 Tiempo 
410 Mueve a Bod 
600 Izquierda 
700 Derecha 
800 U no vida menos 
960 Huevos a salvo 
1070 Enemigo 
1240 Pantalla 
1530 Pone huevos en pantalla 
1610 UDG 
2010 Variables 
2180 Instrucciones 
265() Código máquina 
2810 High Score 


Realiza el salto a la rutina principal de movimiento y 
chequeo si Bod está muerto. 
Decrementa el tiempo disponible, 
Incluye rotaciones. 
Desplazamiento de los bloque 1 a la izquierda. 


Mira a ver si quedan vidas. 

Quedan huevos? 
Si el nivel < 7 mueve y reemplaza el escenario. 
Si es > mueve al enemigo y borra el escenario. 
Imprime las diversas pantallas, 


Caracteres gráficos 
Inicializa variables 


22 MICNOH088Y AMSTRAD 


Scroll de pantalla a derecha e izquierda. 
Pide tu nombre si rebaso> la máxima puntuación. 



 


Z Rotación a la izquierda de Bod, 
X Rotación a la derecha. 
/ Mueve a Bod. 
Desplaza bloques a la derecha, 
" Desplaza bloques a la derecha, 



 


X Coordenada x de 
Bod, 
y Coordenada Y 
Z Coordenadas Y de 
Bod en el array 
inicial. 
bootx Coordenada X del 
enemigo. 
booty Coordenada Y del 
enemigo. 
bootz Coordenada Y del 
enemigo en el array 
inicial. 
mh$ Cabeza de los 
monstruos. 
bh$ Cabeza de Bod. 
eh$ Cabeza de los 
Stompers enemigos, 
mb$ Cuerpo del monstruo. 
bb$ Cuerpo de Bod, 
eb$ Cuerpo de los 
Stompers enemigos, 
na$ Nombre de los 
jugadores que han 
batido el récord. 
hs 
 High scores. 
sc Scores. 
level Nivel de dificultad. 
set (9,20) Contenido de la 
pantalla, 
eggs Número de huevos 
recogidos. 
ti Tiempo que queda 
antes de... 
bod Dirección de Bod. 
lives Números de vidas 
que quedan. 
pl Cuál Stomper está 
presente. 
monster Cuál monstruo está 
presente, 



J lJ RE
l 1\11 Bod' I 
::0 REM By Ar dme11 o ChapmdlJ 
30 REM (<.: ) A
lSTRAD SE
IAt
(\L 
40 Rnl 
50 REM 
60 DIM set(9.20) 
70 OIM ¡'s(8):0IM 1101$(8) 
80 RESTORE 100 
90 l"OR fIlO 8:READ I1s(f),I1«$(f):N 
EX f f 
100 DA rA 5500,I'1r . :'000, Del Mont e. 400 
O,Says.3500,Yes! I 1
3000.Slomper,250 
O, Al) Eiad! 1.7(100, f<1 ou 
 s 
 1500. Revcnge 
110 GOSUB 1610:REM U.D,G's 
120 GOSUB ?650:REM eodigo maqull1d 
130 GOSUB 2180:RE
1 Instr-ueeiones 
140 GOSlIB 2010:RHI Vanabl"s 
150 GOSIIIJ 1240:RHI Dibujd F'antallas 
160 l ET eygs=O 
170 LOCATE bootx,booty:PEN 1:F'RINT 
MIO$(eh$.pl,I):LOCATE bootx,booty+1 
:F'RINT MID$(pb$.
I,I):l OCATE 18,2:F' 
EN 3:I-'RINT I1ves 
180 REM***********Buele F'r-ineipdl** 
*un 
210 LOCATE 6,2:F'EN 3:F'RINT se 
220 IF INkEY(71)=0 OR INkEY(63)=0 O 
R INkEY(30)=0 THEN GOSUB 410 
230 Il" INI<EY(31)=0 THEN GOSUB 600 
240 Il" INLEY(22)=0 THEN GOSLJB 700 
250 Il" set(;:,::)-2 THEN LET se=s<:+10 
:LET set (;:,x)=
J 
260 IF set(L.x)=3 THEN GOTO 960 
270 Il" I evel >7 -llH:.N GOSLJB 1070 
280 Il" booty=y AND bootx=x THEN GOT 
O BO(J 
290 Il" se! (L,X)=O OR set(z,:<)=4 THE 
N GOTO 800 
,,00 GOSUB 330: r,
.
1 di sn,; l1l1ye ti emlJo 
310 Il" ti<-2 TlIEN l"OR f=1 TO 5:S0U
1 
D 1. O. 10.7. O. 0.1: INI': 0.3: BORDER _
: S 
OUNO 1,0.25,5,0,0.10: IMC O.O:BORDER 
O:N
XT f:FOk f 1 TO 100:NEXT f:GOT 
O 800 
::,15 l ET fr'-FI,F ("") 
320 GOTO 180 
330 REM***********lIEMPO*********** 
*un 
360 LFT ti-!i-(Ievel/
Ol 

80 LOCATE 19-ti,23:F'AF'ER 3:F'EN 1:F' 
RINT CHR'(7
4);:PEN O:F'RINI CHR.(73 
5):F'AF'ER O 
400 Id: Tur,N 
410 RFM************Mueve Bod******* 
UU 
440 1 l" 1 NI::EY (30) O fllEt
 GOTO 520 
450 1 F 1 NI:EY 16::,) -O THEN LE r bod=bod 
-1 
460 IF INfEY(71)
O THEN l ET boJ=bod 
+1 
470 11. bo<J-O '1IICt
 LET bod=4 
480 l' borJ
5 111Etl I El brJd=1 
490 LOCA1E ::,v:F'
t
 1/':F'RlIH t'110$(bLJ 
$,bod, 1) 
500 LOCATE :".y+l:F'RINT t'1lD$(blJ$.bod 
,1) 
510 RE rLJRN 
520 LOC>'1TE >:,y:F'AF'ER 3:F'fdN'f" ":lOC 
ATE x,y+l:F'RINT" ":PAF'ER O 
530 IF bod-l AND :«20 IHEN LET set( 
z,:<)=O:LET :<-x+l:SC=SC+l 
54(J 1F bod=2 ANO y<:?O lHEN I El' se! ( 
z.:<)=O:LET y=y+2:LET z=¿+I:SC=SC+l 
550 Il" bod=3 AND :<>1 THEN LET set (;: 
,:<) O:LET x=x-l:SC-SC+l 
560 IF bod=4 AND y>4 THEN LEl set (2 
.x)=0:y-y-2,LET ==z-i:SC=SC>1 
570 LOCAT
 x,y:F'EN 12:F'RINT MID$(bh 
$,bod,I):LOCATE x,y+l:F'RINT MID$(bb 
$,bod.l ) 
580 SOUND 1.2900,20.5.0.0,1 
590 RETUR
I 
600 REM**********G,ra a Izquiar-dd** 
UU* 
6
0 FOR f 1 TO 4:CAlL hiqh.y I:CALL 
hlgh,y:NEXT f 
640 LET p3 set (¿,I) 
650 FOR f=1 TO 19:LE. set(z,f)=setl 


=,f+j):NEXT f:IET set(=.20)-p3 
660 LET :< x-l:IF x=O THEN LET x=20 
670 IF booty=y THEN lEI bootx=boo!x 
-1 
680 IF bootx=O lHEN l ET bootx=20 
690 RETURN 
700 REM******.***G,r-a « dereehd'*** 
UU* 
730 FOR f=1 TO 4:CALl hiyh+50,y-l:C 
ALL hlgh+50,y:NEXT f 
740 lET 
3=set (L,20) 
750 l"OR f-20 TO 2 STEF'-I:LET setlz, 
f) set(=.f-l),NEXT f:lEr spt(=.I)
p 


3 


760 IET x=x+1: IF x=71 THEN lET x-l 
77(¡ Il" booty=y TllEN 1 FT boob,-bootx 
+1 
780 Il" bootx=21 THEN l ET buolx=1 
790 RETURN 
800 REM***********PiDrdas vldd***** 
*U*' 
830 LOCATE buot:<,buoty:F'APER 3:PRIN 
1" ":LOCAT
 boot".booty+l:F'RINT" ": 
F'AF'ER 0:1.0CAT
 x,y:f-'EN I
":F'RINI 1'110 
$(bh',bod,I):IOCATE x,y+l:F'RINT MIO 
$(bb$,bod, [) 
834 IF bout¿(O THeN lET boot2=1 
835 IF seUbootz.bootx)<>3 THEN LEf 
setlboot;:.bootxl
O ELSE IF set(boo 
tL,bootg)=3 THEN F'EN 4:LOCATE bootx 
,boot y: F'R HIT CIIR$ (72;') : 1 OC?1TE boo!:: 
,booty+l:F'RINT CHR.(223) 
836 lOCArE 1,23:PAF'ER 3:PEN I:F'kINT 
STRING$ 1 18. CHR$ (2::.4»: F'I\F'ER o: F'EN 
1 
840 LET 11ves=lives-l:lET II 18 
850 1 l" 1 i ves=O TI tEN GOTO 910 
860 LfT setl=.:<)-1 
870 FOR f-l 10 100:0UT LBCOO,8:0Ur 
8,BDOO. 1 : srlllt
1) 1 :-:.r,. n. :',0. 1'0. O. 0.1: IJF X 
T f:OLJr 8,BCOO.8:0IJT 
,BDOO,O:LOCATE 
18,23:F'AF'ER 3:F'EN 1:F'RINT CHR$(234) 
:F'
INT CHR$1221+CHR$ll):LOCATE 2,23 
:PAF'ER 3:F'EN 5:PRINT STRING$(17,CHR 
$(154»:PAF'ER O:F'RINT CHR$(22)+CHR$ 
(O) 
880 IF booty<>y AND bootx<>x THEN G 
OTO 170 
890 IF x-20 AND y 20 THEN LET booty 
=4:LET bootx=I:GOTO 170 
900 LET booty=20:LET bootx-20:GOTO 
170 
910 FOR 4=1 TO 2:0UT LBCOO,8,OUT &B 
DOO.l:RESTORE 940:FOR g=1 TO II:REA 
D d;n,SOUND l.n,d,7:S0UND 4,n+2.d,7 
:SOUND 5,O.3,0:NEXT g,f 
920 OUT &BCOO.8:0UT &BDOO,O 
930 LOCATE 1,I:S0UNO 130,0.50,3,0,0 
,1:: F'RINT STRING$ 126,11) 
940 OATA 50,1016,37,1016,12,1016,50 
,1016.25.850,25,899,25.899.25,1016, 
25.1016,25,1136,100.1016 
950 GOTO 2820 
960 REM*********Aterr-iza en huevo** 
*un 
990 LET eggs eggs+l 
1000 SOUND 2,200.25,7,0,4:S0UND 2,2 
00.25.5.0,I:LET se=se+l00:lET setlz 
, x) =1 
1010 IF eQgs level+3 THEN GOTO 1040 
1020 GOSUB 1530 
1030 GOTO 180 
1040 LET se se+INT(ti)*10:LET level 
=level+l 
1050 LET ti-18 
1060 GOTO 150 
1070 REM**********Mueve Enemigo**** 
U*'* 
1091 IF bootz,O THEN LET bootz 1 
1100 IF level>6 AND setlbootz.bootx 
) 1 THEN LOCATE boot:<,booty:PAPER 3 
,F'RINT" ":LOCATE bootx,booty+l:PRIN 
T" ":LET setlbootz,boot:<)=O:F'APER O 
:GOTO 1160 
1110 IF set(boot
,boot:<)=O THEN LOC 
ATE bootx.booty:F'APER 3:PRINT" ":LO 
CATE bootx.booty+l:PRINT" ":PAF'ER O 
1120 IF setlbootz,bootx)=1 THEN LOC 


. 
erle 


I r I 


ATE bootx.booty:F'EN 10:F'RINT CHR$(2 
OO):LOCATE bootx.booty+l:PRINT CHR$ 
(201 ) 
1130 IF setlboolz.bootx)=2 THEN PEN 
3:LOCATE bootx,booty:F'RINT CHR$(21 
2):lOCATE bool::.booty+l:F'RINT CHR$( 
213) 
1140 IF set(bootz.bootx) 3 THEN PEN 
4:LOCATE boot::,booty:PRINT CHR$(22 
2):LOCATE bootx,booty+l:PRINT CHR$( 
223) 
1150 Il" setlboolz.bootx)=4 THEN F'EN 
monster+5:LOCATE bootx.booty:PRINT 
MID$(mh'.monster-.ll:LOCATE bOOtH.b 
ooty+1:F'RINT MIO$(mb$.monster-.l) 
1160 LET MOV INTCRNO*4)+! 
1170 IF MOV-1 AND bootx<20 THEN LET 
boo! ,,' -boo!,' + 1 
1180 IF MOV=2 AND booty<20 THEN LET 
booty=booty+2:LET bootL=bootz+l 
1190 IF MOV=3 ANO bootx>1 TI
N LET 
bootx-bootx-l 
1200 IF MOV=4 ANO booty>4 THEN lET 
booty=booty-2:LET bootz boot=-1 
1210 LOCATE bootx,booty:F'EN 1:F'RINT 
MIO$(eh',pl.1):LOCATE bootx.booty+ 
1:F'RINT mD$leb$.pl.l) 
1220 SOUND 1,266,5,7:S0UNO 1.399.5. 
7 
1230 RETLlRN 
1240 REM*********Dibuja pantalla*** 
UU* 
1270 LET y=10:LET x=10,LET ==4:LET 
bootx=20:LET booty-20:LET bootz-9 
1280 F'AF'ER O:BOROER O:CIS 
1290 LET monster-=INT(RNO*4)+I:LET p 
I=INT <RNOI4) +1 
1300 FOk f-l TO 9:FOR g 1 TO 20:LET 
setlf,g)=I:NEXT g,f 
1310 FOR f=1 TO 6+level 
1320 LET xl=INT(RNO*20)+I:LET yl=IN 
T(RNO*91+1 
1330 Il" xl-lO THEN GOTO 1320 
1340 LET setlyl.xl) 4 
1350 NEXT f 
1360 FOR f 1 TO 3+level 
1370 LET :<1 INT(RND*20)+I:LET yl=IN 
TIRNO*91+1 
1380 IF set(yl,:<II=1 THEN LET set(y 
1, xiI =2 
1390 NEXT f 
1400 LET eount=1 
1410 FOR f-4 TO 20 STEF' 2:FOR Q 1 T 
O 20 
1420 IF setleollnt.gl=1 THEN LOCATE 
g,f:F'EN 10:F'RINT CHR$(200):LOCATE g 
, f+l: F'RINT CHR$ 1201 I 
1430 IF setlcount.Q)-2 THEN LOCATE 
g,f:F'EN 3:F'RINT CHR$(2121:LOCATE g. 
f+l:F'RINT CHR$(213) 
1440 IF setleollnt,g)-4 THEN F'EN IOon 
ster-+5:LOCATE g.f:PRINT MIO$(mh$.mo 
nster.ll:LOCATE'q,f+l:F'RINT MIO$
mb 
$,monster.l) 
1450 NEXT g:LET eount-eount+l:NEXT 
f 
1460 LOCATE x.y:F'EN 12:F'RINT MIO$lb 
h$.bod,I):LOCATE x,y+l:PRINT MIO$(b 
b$. bod, 1) 
1470 LOCATE bootx,booty:PEN 1:F'RINT 
MIO$leh$,pl,I):LOCATE bootx,booty+ 
1:F'RINT MI0$(eb$.pl,11 
1480 LOCATE 1,2:PEN 2:F'RINT" lUP:": 
TAB( 12); "LIVES," 
1490 LOCATE 1.1:F'EN 3:F'RINT STRING$ 
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(20.CHR$(131»:LOCATE 1,3:PRINT STR 
ING$(20,CHR$(140» 
1500 LOCATE 1.22:PAPER 3:PEN I:PRIN 
T STRING$(59,CHR$(234»:1 OCATE 20.2 
4:PRINl CHR$(234):PAPER O 
1510 LOCA TE 1,23:PRINT CHR$(22)+CHR 
$(I):LOCATE 2,23:PEN 5:PRINT STRING 
$(17,CHR$(154»;:LOCATE 19,23:PRINT 
CHR$(230);CHR$(232):LOCATE 19,24:P 
RINT CHR$(231);CHR$(233):LOCATE 7,2 
4:PEN 4:PRINT",.TIME..":LOCATE 7,22 
: PRINT". . TIME. ." 
1520 LOCATE 1,23:PRINT CHR$(22)+CHR 
$(0) 
1530 REM*******Pone huevo en pantal 
1 a*** 
1560 LET yl=INTCRND*9)+I:LET xl=INT 
(RND*20)+I:IF yl-20 AND xl 20 THEN 
GOTO 1560 
1570 1 F set (y 1 , xl) 1 THEN LET set (y 
l,xl)-3 ELSE GOTO 1560 
1580 LET count-l:FOR 
-4 10 20 STEP 
2:FOR g-1 TO 20 
1590 IF set(count,g)=3 lHEN PEN 4:L 
OCATE g,
:PRINT CHR$(222):LOCATE g, 

+I:PRINT CHR$(223) EL SE NEXT g:LET 
count-count+l:NEXT f 
1600 RE1URN 
1610 REM
**********U.D.G*********** 
un 
1640 SYMBOL AFTER 199 
1650 SYMBOL 200,126,255,129,185,165 
,165,165.185 
1660 SYMBOL 201.185,165,165,165,185 
, 129, 255, 126 
1670 SYMBOL 202,0,248,248,80,112,80 
,112,80 
1680 SYMBOL 203.112,80,112,80,254,2 
55,255,126 
1690 SYMBOL 204,24,24,126,44,34,36, 
24.60 
1700 SYMBOL 205,110,111,103,119,62, 
24,24,28 
1710 SYMBOL 206.28.28,127,62,62,28, 
8,28 
1720 SYMBOL 207,62,127,127,127,62,2 
8,20,54 
1730 SYMBOL 208,28,28,127,54.42,34, 
28,8 
1740 SYMBOL 209,28,62,93,93,62,8,20 
,54 
1750 SYMBOL 210,24,24,126.52,68,36, 
24.60 
1760 SYMBOL 211.118,246.230,238,124 
,24,24,48 
1770 SYMBOL 212,3,15,63,115,247,115 


,,55
 15 


1780 SYMBOL 213.3,1.1,1,1,1,3,7 
1790 SYMBOL 214,24,60,60,126,94,74, 
82,122 
1800 SYMBOL 215,126.126,153,195.255 
,255,255,155 
1810 SYMBOL 216,0,195,66,66,90,60,9 
0,153 
1820 SYMBOL 217.219,126.60.24,24,36 
,36,231 
1830 SYMBOl 218.129,126,153,24,60,9 
0,189,255 
1840 SYMBOL 219.219,102,60.24.102,3 
6,36,231 
1850 SY
1BOL 220.24,60.126,219.107,6 
0,24,255 
1860 SYMBOL 221,189.189,153.153,60, 
126,255,255 
1870 SYMBOL 222,24,60,60,126,126,25 
5,255,255 
1880 SYMBOL 223,126,126,60,60,24,0, 
0,0 
1890 SYMBOL 224,24,24,126,255,153,2 
55,219,102 
1900 SYMBOL 225,IB9;195,126,24,24,2 
4,24,126 
1910 SYMBOL 226,153,36,46.69.210.14 
6,74,131 
1920 SYMBOL 227,149,210,97,45,42,IB 
,156,73 
1930 SYMBOL 22B,28,62,107,255,247,9 
1 , 99.254 


1940 SYMBOL 229,195,255,255,126.60. 
28.12,6 
1950 SYMBOL 230,0,31,32,223.192,64, 
92,72 
1960 SYMBOL 231,74,7S,66,66,32.31,0 
,0 
1970 SYMBOL 232.0,24B,4,250.2.5B,18 
,lB 
1980 SYMBOL 233,18,66,194,66,4,248, 
0,0 
19B5 SYMBOL 234,146.255,73,255,146, 
255,73,255 
1990 SYMBOL 235,132,74,40,151,95,40 
, 6B, 146 
1995 SYMBOL 236,19B,165.19B,165,6.4 
0,40.16 
2000 RETURN 
2010 REM***********Variables******* 
un 
2040 ENT 1,5,1,1,10,-1,1,10,1,1,10, 
1,5,1,1,5:ENV 3,3,2,2,3,-2,2:ENT 4, 
5,-10,10,1,0,5 
2050 LET mh$-CHR$(214)+CHR$(216)+CH 
R$(218)+CHR$(220) 
2060 LET mb$ CHR$(215)+CHR$(217)+CH 
R$(219)+CHR$(221) 
2070 LET bh$-CHR$(204)+CHR$(208)+CH 
R$(210)+CHR$(206) 
2080 LET bb$-CHR$(205)+CHR$(209)+CH 
R$(211)+CHR$(207) 
2090 LET bod 1 
2100 LET eh$-CHR$(202)+CHR$(224)+CH 
R$ (226) +CHR$ (228) 
2110 LET eb$=CHR$(203)+CHR$(225)+CH 
R$(227)+CHR$(229) 
2120 LET lives=3 
2130 LET sc-O 
2140 LET level-l 
2150 MODE O 
2160 LET ti-lB 
2170 RETURN 
21BO REM********Instrucciones****** 
n*u 
2210 BORDER O:GOTO 2290 
2220 MODE I:PEN 3:PRINT STRING$(40, 
CHR$(200»:LOCATE 1,2:PRINT STRING$ 
(40,CHR$(201» 
2230 LOCATE 1,3:PRINT CHR$(200):TAB 
(16)¡:PEN 2:PRINT"*AH BOD!!*";TAB( 
40):PEN 3:PRINT CHR$(200) 
2240 LOCATE 1,4:PRINT CHR$(201);STR 
ING$(3B.CHR$(200»;CHR$(201):LOCATE 
2,5:PRINT STRING$(38,CHR$(201» 
2245 IF fl=1 THEN RETURN 
2250 LOCATE 1.20:PRINT STRING$(40,C 
HR$(200»:LOC
TE 1,21:PRINT STRING$ 
(4C'. CHR$ (201) ) 
2260 LOCATE 1,22:PRINT CHR$(200);TA 
B (B);:PEN I:PRINT"Pulsa (ESPACIO) 
para continuar.";TAB(40):PEN 3:PRIN 
T CHR$(200) 
2270 LOCATE 1,23:PRINT CHR$(201);ST 
RING$(3B,CHR$(200»;CHR$(201):LOCAT 
E 2,24:PRINT STRING$(3B,CHR$(201» 
22BO RETURN 
2290 INK O,O:GOSUB 2220 
2300 LOCATE 1,7:PEN 2 
2310 PRINT" En la tierra de Block 
al norte de Blob los malvados Stom 
pers estan rompiendo los huevos de 
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los pajaros Wob-Wob que cuidan los 
granjeros. 11 
2320 PRINT" Unos dias despues de a 
parecer los Stompers,los granjeros 
estaban tristes y decidieron ir a c 
asa a jugar con sus AMSTRAD (Habia 
un antiguo modelo para qranjeros)." 
2330 PRINT" Como Bod no tenia AMST 
RAD,para hacer algo interesante dec 
idio salvar a los pajaros Wob-Wob 


2340 PRINT"Ayudale en su tarea." 
2350 IF INKEY$()"" THEN GOTO 2350 
2360 WHILE INKEY$()" ":WEND 
2370 LOCA TE 1,I:PRINT STRING$(26,11 
) 
23BO GOSUB 2220 
2390 LOCATE 1,7:PEN 2 
2400 PRINT" Bod debe recoger todos 
los huevos de la pantalla.Los huev 
os aparecen uno cada vez y tu debes 
coger todos antes de que arda toda 
la mecha de la TNT." 
2410 PRINT" En la pantalla hay ban 
deras con las que consigues puntos 
extras recogiendolas.Hay tambien ri 
esgos en la tierra de Block.Los res 
tantes Stompers estan alrededor de 
Bod.Despues de limpiar dos pantalla 
s un Stomper mut..nte empieza a atac 
arle. " 
2420 PRINT" Cada vez que Bod se m 
ueve.el bloque donde estaba parado 
desaparece dejando un agujero vacio 
que debes evitar. u 
2430 1 F 1 Nf,EY$< >"" THEN GOTO 2430 
2440 
JHILE INf<EY$< >" ": WEND 
2450 LOCATE 1,I:PRINT STRING$(26,11 
) 
2460 GOSUB 2720 
2470 LOCA TE 1,7:PEN 2 
24BO PRINT" Como no es el dia de B 
od,huye de la granja de huevos.Solo 
tiene ratos poderes en la tierra d 
e los bloques.Puede mover la fila d 
e bloques en la que esta parado a 1 
a izquierda o a la derecha. I1 
2490 PRINT" Bod no puede andar fue 
ra de los bloques. Como puede glrar 
en si mismo desaparece en un lado y 
aparece en otro. 11 
2500 PRINT" Sumarlo-Recoqe huevos 
y banderas. Elude los monstruos mOVl 
endote o parandote.No pierdas tlemp 
o alrededor de ellos y no intentes 
cruzar agujeros vaclos. '1 
2510 1 F 1 NKEY$< > '''' THEN GOTO 2510 
2520 WH 1 LE 1 N
:EY$< >" ": WEND 
2530 LOCA TE 1,I:PRINT STRING$(26,11 
) 
2540 GOSUB 2220 
2550 LOCATE 16,7:PEN 2:PRINT"LAS TE 
CLAS":LOCATE 16,B:PEN I:PRINT STRIN 
G$ ( 10, CHR$ ( 131 ) ) 
2560 PEN 2:PRINT TAB(17):PRINT"Gira 
r":PRINT'IIzquierd
-'Z"';TAB(26);I'De 
r-echa-'X'" 
2570 PEN 3:PRINT TAB(5); "Moverse-' 
J' " 
2580 PEN I:PRINT:PRINT TAB(4);" Mu 
eve Bloques a izqulerda-'.'II 
2590 PEN 2:PRINT:PRINT TAB(4);" 
lu 
eve Bloques a der-echa-'\'" 
2600 LOCATE 14,19:PEN I:PRINT"*BUEN 
A-SUERTE* 
2610 IF INKEY$()"" THEN GOTO 2610 
2620 WHILE INKEY$<>" ":WEND 
2630 LOCATE 1,I:PRINT STRING$(26,11 
) 
2640 GOTO 2820 
2650 REM********Codigo Maquina***** 
un* 
2680 LET hig-HIMEM:MEMORY hig:LET a 
ddress=hig+1500:LET high-hig+1500:R 
ESTORE 2740 
2690 READ n 
2700 LET sc=sc+n:IF n-999 THEN READ 
n:IF n<>sc THEN PRINT CHR$(7):PRIN 
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T STRING$(6,CHR$(7»:CLS:LOCATE 11, 
10:PEN 3:PRINT"ERROR IN MACHINE COD 
E":END ELSE IF n=16121 THEN LET sc- 
O:RETURN 
2710 POKE address,n 
2720 LET address=address+l 
2730 GOTO 2690 
2740 REM**********SCROLL IZQUIERDO* 
UU 
2750 DATA &dd,&6e,&00,&26,&00,t<cd,& 
la,t<bc,&e5,t<7e,t<f5,&54,&5d,&eb,t<23, 
&cb,&f4.&cb,&fc,&Oe,&4f,&7e.&12.&23 
,Lcb,&f4,t<cb,t<fc,&eb,&23,&cb,&f4,&c 
b,&fc,&eb,tcOd 
2760 DATA L20,&ef,&fl,&12,&el,t<7c,& 
c6,&08,L67,&e6,&38,&20,&d7,tcc9 
2770 REM**********SCROLL DERECHO*** 
UU 
2780 DATA Ldd,L6e,&00,&26,&00,Lcd,& 
la,&bc,L01,&4f,LOO,t<09,&cb,L4f,&cb. 

fc,
e5.&7e.&f5
&54,&5d,L2b,&cb,&f4 
,&cb,t<fc,LOe,L4f.&7e,&12,t<2b,&cb,t<f 
4.t<cb.&fc.&eb,&
b.&cb.&f4 
2790 DATA t<cb,&fc,&eb,&Od,L20.t<ef,. 
fl,&12,&el,L7c,Lc6,L08,&67,&e6,&38, 
&20, 
<d8. &c9 
2800 DATA 999,16121 
2810 REM**********MAX.PUNTUACION*** 
UU 
2820 MODE 1 
2830 LET fl=I:GOSUB 2220:fl O 
2840 LOCATE 13,3:PEN 2:PRINT"MAXIMA 
PUNTUACION":PEN 3 
2850 FOR f=6 TO 14 STEP 2::LOCATE 4 
,f:PRINT CHR$(200):LOCATE 4,f+l:PRI 
NT CHR$(201):LOCATE 37,f:PRINT CHR$ 
(200):LOCATE 37,f+l:F'RINT CHR$(201) 
: NEXT f 
2860 LOCATE 5.16:PRINT STRING$(32,C 
HR$ (201» 
2870 FOR f 1 TO 8 
2880 IF sc)hs(f) THEN GOSUB 2980:f= 
10 


2890 NEXT f 
2900 FOR f 1 TO 8:PEN I:LOCATE 8,f+ 
6:PRINT na$(f):LOCATE 18,f+6:PEN 3: 
PRINT".......... ";hs(f) :NEXT f 
2910 LOCATE 1,17:PRINT STRING$(220, 
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2920 IF 1 Nf,:EY$< )"" THEN GOTO 2920 
2930 F'EN 2:LOCATE 1,20:PRINT STRING 
$(40,CHR$<154» : LOCA TE 1.22:PRINT S 
TRING$(40,CHR$(154»:PEN 1: 
2940 LOCATE 1,23:PRINT STRING$(40," 
") 
2950 LOCATE 1I,21:F'EN 3:PRINT"PULSA 
";:PEN I:PRINT"< ESPACIO )";:PEN 3: 
PRINT"PARA JUGAR.":PEN 1 
2960 1 F 1 N
:EY (47) <)0 THEN GOTO 2960 
2970 LOCATE 1,I:PRINT STRING$(76,11 
) :GOTO 140 
2980 LET a$-"ABCDEFGHIJkLMNOPQRSTUV 
WXYZ .*X&() !(}?*+"+CHR$(236) 
2990 LET c=19:LOCATE 1,20:PEN I:PRI 
NT a$ 
3000 LOCATE 3,17:F'EN I:PRINT"USAR 
CURSOR IZQUIERDO, DERECHO y COPY":LO 
CATE 4,18:PRINT"PARA SELECCIONAR LE 
TRAS. (MAX. DE 10.)":PEN 2:LOCATE 1, 
19:PRINT STRING$(40,CHR$(154»:LOCA 
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POR SOLO: 2.250 ptas. 


-También disponemos de fundas para: 
-SEIKOSHA SP-800 , 1.100 ptas. 
-SEIKOSHA SP-1000 1.100 ptas, 
-SPECTRUM 16/48 .,.... 330 ptas. 
-SPECTRUM PLUS ,."", 460 ptas, 
-COMMODORE 64 y VIC 20 680 ptas, 
-SAGA 1 EMPEROR "".."".. 550 ptas, 
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TE 1,22:PRINT STRING$(40,CHR$(154» 
3010 LOCATE 12,23:PEN 3:PRINT"F'ULSE 
"::PEN I:PRINT"< 'X' )";:PEN 3:PRIN 
T"PARA SALIR. ":PEN 1 
3020 LET X$="II 
3030 FOR z=1 TO 10 
3040 LOCATE c,21:PEN 2:F'RINT" " 
3050 1 F 1 N
:EY (1) =0 ANO c< 40 THEN LE 
T c=c+l 
3060 IF INkEY(8)=0 ANO c)1 THEN LET 
c=c-l 
3070 IF INkEY(9)=0 ANO c-40 THEN LO 
CATE 7.f+6:F'RINT" ":LET z 
100:GOTO 3120 
3080 11' INI<EY(6.5)-0 THEN I ET z-II:G 
OTO 3120 
3090 IF INKEY(9),)0 THEN lOCATE <.,2 
1:F'RINT"*":FOR alTO 50:NEXT ..:GOT 
O 3040 
3100 LET x$=x$+MID$(..$.c.l):LOCATE 
7+z,f+6:F'EN I:PRINT MID$(a$,c,l) 
3110 FOR .. 1 TO 200:NEXT .. 
3120 NEXT z 
3130 IF z-101 THEN GOTO 3020 
3140 LET hs(8)=sc:LET na$(8)=x$ 
3150 LET f-O 
3160 FOR z=1 TO 7 
3170 IF hs(z)(hs(z+l) THEN LET t-hs 
(z+1):LET hs(z+1) hs(z):LET hs(z)=t 
:LET a$-"..$(z+1):LET na$(z+1) na$(z 
):LET na$(z)-a$:LET f=1 
3180 NEXT z 
3190 IF f=1 THEN GOTO 3150 
3200 LET fr=FRE("") 
3210 RETURN 
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INTERESANTES CONDICIONES PARA DISTRIBUIDORES 
CUPON DE PEDIDO 
Recorte o copie este cupón y envielo hoy mismo a: 
MICROSOFT-HARD, Apartado 23,406, 08080-BARCELONA, o bien realice su pedido 
por teléfono llamando al (93) 348 04 07. (Tardes de 5 a 9). Gastos de envío: 150 ptas. 
Deseo recibir a vuelta de correo , , . , . . . . . . funda(s). 
Marca: ".,."..."",...".,.."",. Modelo: 464-664-6128. Monitor: verde-color 
-Contra reembolso: -Talón adjunto a MICROSOFT-HARD, SL: 
(MARQUE CON UNA «X» LAS OPCIONES DESEADAS) 
-NOMBRE Y APELLI DOS "., 
-DOMICILIO 
-LOCALIDAD 
-PROVINCIA ......"".,.....",..",...."",.,.".",....,."",..".......,..",." 
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Hasta el momento hemos visto cómo se organiza la memoria 
de pantalla en Modo O y hacia el final del último artículo 
habíamos desarrollado por completo una poderosa rutina de 
impresión de sprites. Pero no hemos llegado al final de la 
historia, todavía nos queda por recorrer un largo camino. 


sta semana daremos el lis- 
todo de una rutina de movimiento 
más un editor de gráf cos que nos 
permitirá diseñar nuestros propios 
sorites, 
El editor está en Basic, pero para 
escribir el código máquina necesita- 
remos un ensamblador. El publicado 
en el número 8 de M.H. AMSTRAD 
es muy adecuado para tratar los 
programitas que vamos a escribir, 
Si ha tecleado los ejemplos del úl- 
timo artículo, tendrá una sencilla ru- 
tina de escritura que es capaz de im- 
primir un caraeter multicolor de cual- 
quier tamaño y en cualquier lugar de 
la pantalla. 
Esta sencilla rutina almacena los 
datos del sprite directamente en la 
memoria de pantalla. Haciéndolo de 
esta forma se produce un efecto se- 
cundario inoportuno ya que se bo- 
rra cualquier cosa que está en esa 
posición que no tenga nada que ver 
con el sprite. Necesitamos modificar 
un poco la rutina para poder supe- 
rar este problema. 


Mejorar las rutinas 
de impresión 


Sin embargo, antes de nada va- 
mos a echar un vistazo a los progra- 
mas de esta semana y veremos lo 
que hacen muy por encima. Será 
más fácil seguir la explicación una 
vez hayamos visto la ejecución del 
código máquina, 
El programa 1 es un ejemplo de 
sprite para uatilizarlo con el progra- 
ma en código máquina. Necesitamos 
teclearlo y correrla antes de pasar a 
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ejecutar el programa 2. Se trata de 
un hombre paseando a su perro por 
la playa en un día soleado y con las 
olas al fondo, Si no nos cree, ¡hága- 
lo y verá! 
Lo hemos creado utilizando el edi- 
tor de sprites -programa 3- tiene 
2 caraeteres de ancho por 3 de alto 
y utiliza 10 plumas y tintas diferentes, 
No es la clase de sprites que va- 
mos a encontrar normalmente, sirve 
para mostrarnos la velocidad y po- 
tencia de la rutina, Cuando lo haya 
visto, imagínese intentando moverlos 
e imprimirlos desde el Basic. Noso- 
tros ni siquiera lo probaríamos. 
Salve el programa 1 después de 
ejecutorio y meta el programa 2. Pa- 
ra ejecutar la demostración del spri- 
te teclee: 


MODE o: CALL &8000 


y utilice las teclas del cursar para mo- 
ver el gráfico a lo largo y ancho de 
la pantalla. Podemos volver al Basic 
en cualquier momento pulsando la 
tecla ESe. 


La rutina de impresión 


Echemos una mirada a la rutina de 
impresión y nos encontraremos con 
que es diferente a la desarrollada en 
nuestro último artículo. Comienza en 
la dirección &8087 dentro del pro- 
grama 2 y está dividida en dos partes, 
La primera borra el sprite antiguo 
y comienza en la dirección &8087. La 
segunda imprime el gráfico en la 
nueva posición y está en la dirección 
&80AD. La segunda parte es utiliza- 
da también por la rutina de iniciali- 
zación para colocar el caraeter en la 
pantalla. 
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Esta última rutina de escritura uti- 
liza la instrucción XOR para imprimir 
el sprite. Se recoge cada elemento de 
datos del sprite y se le hace un XOR 
con lo que haya en la memoria de 
pantalla «bucle 2» comprendido en- 
tre las direcciones &8098 y &8090 en 
el programa 2 se nos demuestra co- 
mo se hace. 
La gran ventaja de utilizar la ins- 
trucción XOR es que después que se 
haya movido el sprite de un lugar, la 
pantalla queda de la forma que es- 
taba inicialmente. 
En el artículo «Animación Plus» del 
número 9 examinábamos la utiliza- 
ción de las funciones lógicas tales co- 
mo XOR. Si no está muy seguro de 
lo que hace esta instrucción, vale la 
pena que lo revise, 
Básicamente, cuando hacemos un 
XOR a dos bytes estamos haciendo 
una comparación bit a bit y el resul- 
tado está de acuerdo con las siguien- 
tes normas: 


1 XOR 1 =0 
1 XOR 0=1 
O XOR 1 = 1 
O XOR 0=0 


Si el byte de la pantalla es &00 y 
el dato del sprite es &CC haciendo 
XOR de los dos obtenemos &ce. 
Cuando el sprite se mueve hacemos 
otra vez XOR del dato con la memo- 
ria de pantalla que como ahora tie- 
ne el valor &CC, hallado anterior- 
mente, al realizar esta función lógi- 
ca de nuevo nos da el valor &00 
(&CC XOR &CC=O) que es el valor 
que tenía antes, 


Imprimir sin borrar 


Supongamos que el byte de la 
pantalla es &OC y que el byte del da- 
to es &ce. Cuando hagamos XOR 
de estos dos valores obtendremos 
&CO que no es lo que queríamos, 
Queremos decir con esto que cuan- 
do coloquemos un sprite sobre un co- 
lor de fondo que no es O sus colores 
se alteran, 
Al hacer otra vez &CO XOR &CC 
obtenemos de nuevo &OC con lo que 
el color del fondo vuelve a ser el mis- 
mo que tenía inicialmente, 
Para comprender mejor lo que le 
acabamos de decir, escriba varios 
caracteres en la pantalla antes de lla- 
mar a la rutina del sprite, A continua- 
ción mueva el sprite sobre ellos y lo 
verá más claramente, 



ódi · !' 
áqu.na 


El problema del color se soluciona 
fácilmente redefiniendo las tintas pa- 
ra que produzcan los colores correc- 
tos. Para una mayor información 
ojee el sencillo artículo dedicado a 
los sprites en Basic publicado en el 
número 11 dentro de nuestra habi- 
tual sección PrograAcción. 
Antes de llamar a «print», la nue- 
va dirección del sprite se coloca en 
«nueva» y la dirección anterior en 
«vieja», Observemos que la instruc- 
ción de la posición &808B es LO HL, 
o tiene tres bytes, y que «vieja» se 
coloca en &808C, el segundo de los 
bytes, al comienzo del programa 2, 
Esto quiere decir que los dos bytes 
que están a cero en la instrucción se- 
rán sustituidos por los distintos valo- 
res que vaya teniendo la antigua di- 
rección del sprite, 
Este método nos ahorra tiempo ya 
que LO HL,nn es más rápida que LO 
HL,(nn). Utilizamos la misma técnica 
para el tratamiento de alguna de las 
otras variables. 
El tamaño de sprite en columnas y 
filas lo pasamos en los registros H y 
L. El diseñador de gráficos nos dará 
el tamaño, 
Hay también un par de variables 
dignas de mención. Se trata de ((dat- 
nue» y ((datvie» que hacen posible 
la animación de caracteres asocian- 
do ((datvie» al sprite 1 y «datnue» al 
sprite 2. Hacemos XOR al sprite de 
la antigua posición con «datvie» y co- 
locamos ((datnue» en (mueva». 
Al principio vimos dos artículos en 
los que la pantalla estaba compues- 
ta por filas de pixels repartidas en 
grupos de ocho -las líneas con las 
que trabajan las instrucciones LOCA- 
TE y PRINT -, y que la dirección de 
cada fila de pixels de un grupo está 
separado &800 bytes de la anterior, 
La rutina de escritura lleva la direc- 
ción del sprite en la pareja de regis- 
tros HL así que tenemos que sumar- 
le &800 para obtener la fila siguien- 
te. Es cosa de expertos pasar H al 
acumulador A, sumarle &8 y cargar 
el resultado en el registro H. Es más 
rápido que cargar la pareja BC con 
&800 y luego sumar HL y Be. Con el 
tiempo llegará a dominar trucos pa- 
recidos a éste. 
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Impresión del sprite 
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, 


1(1 REN FROGRA
IA I 
20 HEMORY t
7FFF 
30 FOR 1 (, TO 193 
40 REAO J 
 pm
E tc900fH1, j 
5ú NEXT 
60 REM 1 Hombr e y SlI lJ
t,.o 1 
70 DATA 24.8 
80 DATA 16,48.48,740,176.48.19 
2, 1

48.48.112.?4j,.1.240.48.48. I 
197, -48. 48, 240 
9U DATA 207.218.176,96.96.48.4 
8,229.71.71 . 17
. 48. 9b. 48, 48, 10 

O
O
A

74:
4:
4B.IOI.;>06.207
 - 
48.48.48.48.48.48,207.154.48.4 
8,48.48.48.48.101 1 
110 DATA 48.48.48.48.48:48.60. 
197.148.!i6.48.48.48.
2.6(J.lCt4. 
60.60.48. 48. I
 f t 
120 DATA 60.60.60.bO.60.4-;.I
. 
15.60,30.44.0.0. :::0. 45, 15. 15.60. 
:::'0.40,60.30,4", r 
130 DATA 11,,1, 1
.bO,3(t.44.60.30. 
45.1
1.15.6(1.3{J.4(1.60.J.O.45.1<"j. 
5.207.30,44.60 
140 DATA 19.143.135.
.:i'57.-:r"O.4 
0.60,27. 7"'j. 195.5, i 7::, 30, 60. bO. 
145,19
, I '-¡S, 133 
ISO DATA 17
.14,8.12,197,51.9B 
,192, 173, 14,8, 12, 192, 193. 1 '=;'5. 1 
92.23
.1:':", 72,12 
10.0 OATA 192,19"'-, 19
., 197.232,1 
32,72,12.192.19':;. 1Q3, 197.232.1 

2,77.12.192.lq3 r 
17(1 OATA 193.6-4.2
2.196, '('1..1.20 
4. '.2. l..;. ,.- I r l- 


,O 
20 
8000 30 
4(1 
SOAE 
(I 
8(18C 60 
80BI 70 
S08F SO 
.(. 
"'O 
8000 2100CO 110 
900," E5 120 
8C:)Ú4 278C8Ú I.:!O 
8(107 7.?AE.80 '40 
BO(.A 2AOO90 '50 
8000 220t¡80 160 
BOlO 2 1 0290 170 I 
BOI
 27.BI8(1 ISO 
8016 CD('tD80 '.0 
8019 El ?OO 
2'0 
81)IA 220 
BOlA 220680 ?30 
801D 22AE8(1 7.4ú 
802(1 /107.90 25(1 
8(123 22BI8u 260 
8(126 778f- 8\.1 770 
8029 2AD480 280 
907C CO 19
O 29(1 
80
F C08780 300 
8032 2AObBO 3101 
a035 728C8V 
;
I 
8(138 ES 
340 
350 
8039 AF 360 
8(13f1 COIE:8E1 370 
--. 8030 2810 3S0 
8(13F El 3.0 
8040 7C 400 
8(141 0610 410 
8043- 67 420 
8(144 06CO 430 
8046 3002 440 
9048 01 B03F 
 4
O 
8u4B o. 4/>0 
B04C C
IA80 470 
48"'1 
804F 
 4.0 
8(14F :E(12 
(IÚ 
8(151 COIEE:IE:I 510 
8054 7.80F 
20 
80560 El 530 
8057 7C 540 
9(1'18 C6
0 550 
8(I
A 67 56(1 
80
8 021A8(1 570 
80
E 01:50CO 5S0 
8061 O. 
JQo 
B0602 C3-IA80 600 
I 


r1U¡:'VO: 
V1E')O: 
dc<tm.'
: 
d...tV1ID: 


L 


F f.OGRAHA 1 1 


ORG" 


..8000 


COtnlenzo: 
10 (dlreccl00) ,HL 
lO {nuevo} ,HL 
LO HI, n.002 I 
LO (dat.nue) ,HL 
lO (d.,¡at.V1SO) ,HL 
LO HL.(f11,n) 
CAL!. ..BOI9 I 
CALL. pnnt 1 
10 Hl, (dlreCClor¡) 
LD (V1_JO) .HL 
PL ISH HL 


.d.rr lba 


XOR 
CAlL 
JR 
POP 
LO 
SUB 
LO 
SUB 
JR 
, O 
AOO 
.- JP 


..,b.aJol 


EQU 
EOU 
EQU 
EOU 


1180AE 
1180BC 
118081 
"90SF 


rJ
o 


--11- 
8065 
_ _ _8(lb5 
8(161 
806A 
806C 
8060 78 
SObE C3 I A80 


-',(01 - r 
620 1 H.jtJ<:\: 
630 
640 
6
,{I 
660 
670 
6S0 
69(1 
0071 700 dch.u 
8(171 :!'
(]\ 710 
8073 CDll08 720 
_ J _ 8076 28(1

 730 
8078 El 740 
8079 2;'::; 7'";(1 
B07A C31 (\80 160 
-+- 77(' 
I 8070 I 78(1 
8070 3E<1' 79(1 
B07F CO'EBB LsooL 
80B2 El 8)(1 
80B3 CAln80 B20 
BOBO, C9 S
() 
8087 840 
8087 770480 8",0 
8(t8A 45 1 860 
8088 210000 870 
8(18E 1 10000 880 
809j J.:3 1 89(1 
8092 9(10 buclel: 
8092 CS 910 
B093 3AO
80 920 
8096 47 930 1 
8097 E
 941..1 


:
 lA I :
g bud e/: LO 
8099 Af:. L '=;'70 XOR 
809A 77 1 9S0 LO 
809& 73 '=190 I 1 NC 
809C 13 1000 INC 
8090 10F9 1010 O,lNZ 
809F El I 1020 1 POP 
BOAO 7C 1030 lO 
80Al C608 1040 AOO 
8(IA3 67 105(1[ LO 
80A4 3004 1060 JR 
t 80A6 (1150CO 1070 1 lO 1 
BOA9 09 1080 AOO 
80AA 1090 'If11",1: 
80AA Cl 1100 
J 80A8 lOES L 1110 
eOAO 112(1 
80AO 21(1(100 1130 
80BO 1100000 1140 
8083 3AD480 1150 
80Bo 47 1160 
:



 C
 I 1170 buc193: PUSH 
80B8 
HD:S80 l 
: 
6 O 
SOBE' 471 1200 
ol 
80BC ES 1210 F'USH 
80BO 1220 I:H.lcl e4: 
80BO lA I 1 1230 LO 
:


 
; I 
 
;
 

R 
:
g
1 ;-
 I 
 ;*
 
 
g 
8(IC7 IOF
 178(1 DJNZ 
8(IC4 El 129' 1 POP 
8(IC, 7C 1
O(l I LO 1 
80C6 C61.18 =i. 1310 
 AOO 
80Ca-ó7 1370 1.0 




 


¿CO 
 ;¡
 I 

 
aOCE 09 1350 1 AOO 
8(ICF l
óO"
11L\2: 
80CF CI 1370 
8000 1 OE
 1380 
8002 FB 1390 
8003 C9 1400 
I I 1410 
8004 1420 fllo!l5: 
0004 00 1 q 
O OEFD (1 
8f105 14.qO eoll..lmnas: 
 
8r10
 
J J '1
0 1 OEFEI (1 
-S006 I - jl460 dlrecclDn: 1 - 
B(106 0(100 1: :

 I OEFW O 
SOOS 1'4.0 t ENO 

 


3E(l8 
CD 1 EBB 
780
 
El 


Q
C.tlpe: r 
L 'O 
CAL L 
FOP 
JP 
FET 


1 


pnntr 


lO 
CAL L 
JR 
FOP 
O.C 
,IP 


A.B 
tlBB1E 
Z. dLtloJ. 
HL 
Ht r 
(,0 ni en¡::o 


La rutina de imprimir el sprite es 
francamente simple. Al escribirla he- 
mos decidido elegir la velocidad an- 
tes que la concisión, aunque puede 
paracernos que hemos utilizado de- 
masiadas instrucciones, lo cierto es 
que se trata de la rutina más rápida 
que hemos tenido hasta el momento. 
Nos basta con conocer todo esto 
sobre la rutina de impresión del spri- 
te, Ahora echaremos un vistazo a las 
rutinas que realmente lo mueven, 
Hay cuatro secciones etiquetadas 
«arriba», «abajo», <<izda» y «dcha». 
Cada una de ellas lee si hemos pul- 
sado la tecla correspondiente y mue- 
ve el sprite en la dirección apropiada. 
No vamos a explicarlas todas ya 
que no existe mucha diferencia en- 
tre unas y otras. Empezaremos con 
la rutina «arriba», situada en la di- 
rección &8039, que es la más com- 
plicada. Si podemos entenderlo, se- 
remos capaces de seguir las demás, 
¡esperamos!. 
Una de las llamadas al firmware 
para leer el teclado está en &BB 1 E. 
Se la llama con el número de la te- 
cla cargado en el registro A y vuel- 
ve con el Flag de Cero desactivado 
si hemos pulsado la tecla. 
La tecla del cursor arriba es el O así 
que la primera instrucción XOR A po- 
ne a O el registro A y se continúa ha- 
ciendo la llamada al firmware, Exa- 
minamos el Flag de Cero y si no he- 
mos pulsado la tecla el control salta 
a la siguiente sección. 
La antigua dirección del sprite se 
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1 hllCtAL 1 ZACtON I 
lO Hl. "COOO 
FLJSH H_ 
LO (vieJo) .HL 
lO (nu€?vo}.HL 
LO HL,(M9000) 
LO (1-11 d'S) .Hi. 
LO tll, .jt9002 
LO (da.1 nu¡:.). Hl 
;.

l 
I
loc
r I 
I 


A 
'
DIE 
Z .abajo 
HL 
A.H 
.,0 
H,A 
"CO 
NC, CorlH .oto 
Be. J30FBO 
I-L 
 BC 


LO 
CALL 
JR 
POP 
LO 


A.2 ---L 



 

da I 
HL 
A.H 


, 
r 
I t 
-1- 


POP 
OJN2 
col oc¿t.r: 
LO 
LO 

gl 



 


L ETIQUETAS 


I o I 
C{\LL 
.1R 
POP 
INC 
JP 
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"2, E::!'3.Ld.'-'t:.' 
" 
"' I 


I;.otnl..on;:o 


,¡:f*l; 
. . ,¡ik,¡1i 
......--....... ':! 
 ''''¡ j ''' ¡ , ¡ ''';': 
/' ..,' tlt .;, "'l: i,J¡, 
I 
 ' 
 
 r .,' I iJ ' 1.lIj,11-';. 
l t 
,-, L ,'.:km-" 
'"' '::j . ' '11''';' 1: 

.1

 
 !.1i¡ '1',1':1' ij;n1ro,: 
" ,. :;tN"h
 t 't."I, - 
/'1 
'
j:
<_ ¡ ' T-C'J' 
1;. ;f 1: I r :;;1 E
:jf.1: 
+),.1.......,...01 
,1 ff}.'fL f
f 4i

 
:
Jl


H

: 


28 MICNOH088Y AMSTRAD 


AOO 
LO 
JP 
LO 

OO 
JP 


A, MlO 
H.
 


NC. COlnl SOU:.10 
SC, ..C050 
HI . BC 


-t 


I 
I 
.,¡abajo 
bl lel 
3 
(.olllmn 
dQltvl Q 
escape:' 
nuY'vo 
IIf11 ¿12 


buc 1 02 8098 
col oc
 eOAO 
da:tllutl 8081 
di rece 8006 
j ..:qda 80ó5 
s
11",1 BOAA 


8(14F bl..lel 
I 80'=12 
8087 bl..
c 1 e4 80BO 
800
 conu en 801 A 
80eF dLho!l 8071 
807D +1101e;. 8004 
BOAE priot 8087 
80CF V1LjO selsc 


T 


A,66 
'"BB1E- 
Jj 
Z. conn en:: o 


'O 
LO 
, O 
LO 
DI 


I 
 i 1 ,.e) . HI 
O,l 
IJL,O 
DE,O 


I 
PUS.¡ 
LO 
10 
FUSH 


OC 
A. (collLmnl'.s) 
O.A 
HL 


_i 
A, (DE) 
(HI) 
U-¡U.A 
HL 
OE 
b
LC 1 c.2 
HL 
A,H 
A, M8 
H.A 
NC.

llal 
[
C, .. CO
O 
IIL.BC 


OC 
bucll.d 


HL .0 
OLO 
A. (1-11 as) 
8,A 
BC I 
A. (!o1uf1'lna
) 
B.A 
HL 


A, (DE) 
CHU 
(HL) ,A 

E I 


b
lc 1 t.'ti 
HL 
 
A,H 
A,..a 
H,A 
NC.s
11...2 
8C. tlC(ISO 
H ,ec 
Bel 


POP 
OJNZ bucl 123- 
El 
RET 


-¡- 



guarda en el stock así que mediante 
la instrucción POP cargamos con su 
valor el registro H L. Como hay dos 
pixels horizontales por byte en Mo- 
do O, la dirección se decrementa en 
& 1000 (2 * &800). El sprite se mueve 
hacia arriba dos filas de pixels del 
mismo modo que cuando se mueve 
horizontalmente. 
Para restar & 1000 de HL todo lo 
que se necesita es restar & 10 de H 
cargando el contenido de H en el re- 
gistro A. Una compensación de esto 
es que colocamos en A una copia del 
byte más significativo de la dirección, 
La memoria de pantalla comienza 
en &COOO así que podemos restar 
&CO de A, el byte más significativo 
de la dirección del sprite. 
Si se activa el Carry flag es que la 
nueva dirección está por encima de 
la parte superior de la pantalla, por 
lo tanto hemos de sumar un factor de 
corrección al registro HL. 
Esta situación ocurre entre grupos 
de ocho pixels a causa de la forma 
en que el Amstrad mapea la memo- 
ria de pantalla. 
El programa vuelve otra vez al co- 
mienzo para dibujar el sprite en la 
nueva posición. Observemos que 
hay una llamada a &BD19 justo an- 
tes de la llamada a la rutina de im- 
presión. Así evitamos el parpadeo 
producido por el retorno del haz en 
el monitor. 


Editor de sprites 


El programa 3 es un editor de spri- 
teso Contiene todas las instrucciones 
y su utilización es bastante sencilla. 
El diseñador puede contener dos 
sprites, de 2 caracteres de ancho por 
3 de alto, a la vez para permitirle 
trabajar como si se trata de una se- 
cuencia de animación. 
Hay comandos que nos dan el re- 
flejo del sprite horizontal y vertical, 
y también podemos girarle 90 gra- 
dos, 
Cuando tengamos completo el di- 
seño, el programa escribe los datos 
del sprite como instrucciones DATA 
con su número de línea, Cada uno 
de los datos pueden salvarse direc- 
tamente o finalizar el programa y si 
queremos teclear las instrucciones 
DATA que nos deja en la pantalla. 
y nada más por hoy. Diviértase di- 
señando sprites mientras nosotros 
nos dedicamos a conseguir algunas 
rutinas que nos sirvan para detectar 
choques entre ellos. Nos veremos 
pronto.. . 


+--L: 
 I I I I 
10 REM -------------------- 
2(1 REM 01 se#ador de Spr 1 tes 
30 REM I Por R.A.W. I 
40 REM MICRoHoE<E<Y AMSTRAO 
50 Rnl SEM(\NAL 
60 REM __L____________L____ 
70 
IEMORY !,8000 
80 GoSUE< 2130:REM 1nstruccione 
S I I I 
-,----90 GOSUE< 170 :REM lrllcializaCl 
on I I 
100 GoSUE< 360:REM pantalla 
-110 GoSUE< 610:REM d1se#o 
120 MoDE 1 I I 
130 CALL 
E<E<4E:CALL 
E<C02'REM 
¡¡¡.
¡;;:::::
:::'---_!__:_--- 
+- 
;;-R
M IniClal1zacion de ,ari 
ablesl I 
-1 180 REM ---L- y arr ays- 
190 REM ---------------------- 
200 SF'EED I{EY 250. 
50 I I 
210 DEFINT a-z 
220 FoR i 1 To 6 
230 READ a$ I I I 
240 Po
E .8000+i.VAL("
"+a$) 
250 NEXT"'--- - 
 - 
260 gpaper =
8001 I I 
270 DATA DD,7E,OO,C3,E4.E<E< 
280 DIM sdatoeI5.23).sdato2115 
,23),tempeI5,23) L I 
290 FoR 1=0 To 15 
300 READ j:INK i,j I 
::>10 NEXT I I 
320 DATA 0.18.6,24,2,8,20.26,1 
5,16.7
9
13,22,2,26 
330 color=l:sprlte-l 
340 RETURN I 
350 REM ---------------------- 


Pantalla princlpal 


360 REM 
370 REM ---------------------- 
, ;
;-
bDE 
1--390 MoVE 
400 DRAW 
AW (1,0 
410 CALL gpapet ,14:PLoT -10.-1 
0.15 
420 TAG: 
loVE 0.385 
430 PRINT "DISE*ADoR DE SPRITE 
S", I 
440 TAGoFF 
450 CALI qpapet .O:PAPER O:PEN 
13 
460 LoCATE 7.77:PRINT "Sur lte: 


r 


O:E<oRDER 4 
O,O:DRAW 0.398,14 
638,398:DRAW 638,O:DR 


470 PRINT USING "1I":sprlte 
480 LOCATE 2.24:PRINT "Pen:"; 
490 PEN color 
500 PRINT MID$(STR$lcclor),2) 
510 MoVE 32.350:DRAW 320,350.1 


3 


320,140:DRAW 32,140 
32,350:MOVE 470.280 
555,280:DRAW 555.215 
470,215:DRAW 470.280 
36.342-16*8:PLoT 316. 


520 DRAW 
530 DRAW 
540 DRAW 
550 DRAW 
560 PLoT 
342-8*16 
570 PLoT 36,342-8*8:PLoT 316,3 
42-8*8 
-'--580 PLoT 51+8*16.348:PLoT 51+8 
* 16.142 
590 RETURN 
600 REM ---------------------- 
____.J 
610 REM 
620 REM ---------------------- 


D,bUJO del Sprite 


630 PEN 15 
640 PRINT CHR$(30),CHR$(23):CH 
R$ll) , 
65CI x=O:y=O:cdracterS- 1111 
660 WHILE INKEY$()"":WEND 
.L- -670 WHILE caracter$()"E" 
680 gpen=sdato(x,y):PLoT 58+x* 
16,338-y*8,15:GoSUB 99r:FOR i= 


I ! ! ! I 
 
 I t 
O TO 100:NEXT:caracter$ UPF'ERS 
(INKEY$):GOSUB 990:PLoT 58+x*1 
6, 338-y*8. 15 
690 IF caracter$ CHR$(
EO) THE 
N GOSUE< 1060:sdatolx,y)=color: 
gpen color:GoSUE< 990 
700 IF caracter$="P" THEN colo 
r-(color+l) MoD 16:PEN color:L 
oCATE 6,24:PRINT MID$(STR$ecol 
or).2);'
:PEN 15 
710 IF caracterS-"V" THEN GoSU 
E< 1410 I 
720 IF caracter$-"H" THEN GOSU 
B 1570 
730 IF caract"r$
"N" THEN GoSU 
B 1130 I 
740 IF caracterS "G" THEN GOSI! 
E< 1740 
750 IF caracterS="S" THEN GOSU 
E< 1930 
760 IF caracterS-"I" TIIEN GOSU 
B 830 I 
770 IF caracter$=CHR$(13) THEN 
GoSUB 2370 
780 IF c.racter$-CHR$eI27) THE 
N IF sdatoex.y) THEN gpen=sdat 
o(x,y):GoSUB 990:sdatolx,y)=0 
790 x=x-IINKEyel)-1 AND x(15) 
+IIN
EY(8»-1 ANO x 'O):y=y-(IN 

EY(2»-1 AND y(23)+IIN
EY(O») 
-1 ANO y>O) l 
800 WEND 
810 RETURN _ '-- 
820 REM ---------------------- 


830 HE-II 
,t.!r..h,..tJHJt j..JJlt"IC.1
 
840 REM ---------------------- 


8501=-I:j--l 
860 WIIILE 1--1 
870 LoCArE 7.20: INF'UT "P"n ";1 
880 IF 1<0 OR 1)15 THEN 1=-1 
890 
JEND 
900 LOCATE 2,20:F'RINT SF'C(18) 
91n WHILE J=-1 
920 LoC?1T E :?. 20: I 1 NE 1 NF'UT "11\ 
.: ""1 
 aS 
930 IF LEN(a$) IHEN j=VAl.<a$): 
IF j(O oR j)26 THEN j--l 
940 LoCATE 7,20:PRINl SPC(18) 
950 WEND 
960 IF INS1R(aS.".") lHEN 
=VA 
L(MID$(aS. INSTRI.". ". ") +1»: IN 
1: loJ.I: ELSE INI' l,j 
970 RETLlRN 
980 REM ---------------------- 


990 RE
1 [)lbujar un p1:,el 
1000 REM --------------------- 



 


1010 PLOT 48(J+x*4.271-y*:?',gpen 
1070 TAG:MoVE 51+x*16.342-y*8 
1030 PR 1 NT Cfir<$ I 179) : : T AGoFF 
10411 RETURN 
1(150 REM --------------------_ 


1060 REM 
est,a 
1070 REM 
1080 REM 


I 
Chequcf.tr si el p.i xel 
_______l_



:=

____ 


t 


I 
1090 IF s;da1o(::.y)-(1 IHEN RETIJ 
RN 
1100 gpen
cdato(x.y):GOSLlE< 990 
1110 RETIJRN 
1120 RfM -------------------- 
I 

.;;-Rn1 Nuevo spr 1 te - r 
1 1140 REM --------------------- 
----- I 
1150 LoCATE 2.20:PRINT "Nuevo" 
1160 FoR 1=0 To 15 
1170 FoR J (J To 23 
118u sdatoI1,j) O 
119(1 Nf X T 
1200 NEXT 
121(1 GoSlJE< 1250 
1220 LoCATE 2.20:PRINT SPC(18) 
1230 riETlIRN 
1240 REM ------------"-------- 


L 



L 
I 
f 


r 
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7000 k=sdatuC':,y) 
:2010 sdaLc.d::,v)-sdaLo2(:<.y) 

O:O sd.to2(..y)=
 
2030 NE'l..T 
7040 NEXT 
2050 IF s
rllE::' 
EI,SE sprl te= 1 
2060 LOCATE 9,72 
2070 PRINT USING "#":sprite 
20BO GOSUB 17
0:GOSUB 1370 
2090 >: 1 
 y=] 
11320 REM ImprImIr el sprlte 2100 ¡OCATE 2.20:PRINI SPC(IB) 
1330 REM ------------------ 
 2110 RETLJRN ' 
J ---- , 
 21 
C, R
rl ___.J______ 
--.-l134
) FOR x -O TO 15 1 --:- I 1 
I 135v FOR y O TO 2::, -1 21-',0 REMI IIIsLr¡""ciolles 
;:::, 
 
 ,:
::;
:. ;;0 '
 '
e" 1 J "" "y--,--m------ T -- 
1370 NEXT 2150 CAl 1, t,[<CO:':CALL &BB4E:RErl 
13BO NEXT I Puest. . cero 
1390 RETURN t-"t - -'216':' MODE I:BORDEr, 10:INI( 0.4,- 
1400 REM --------------------- 217u PAPER 3:PEN I:LOCATE 10,2 
, 1 1 I :F'RINT " DISE#ADOR DE SPRITES 
14IC'REM Reflejo vertIcal ,1 --,- , 
1420 REMI----------------
---- 21BO PAF
R O:PEN 2:PRINT:PRINT 
ttT
ma#o maxlma-16x24 pi::els 
1430 LOCATE 2,20:PRINT "Reflej 2x3 earaes.)" , 
o vertleal" I I 2190 F'RINT:F'RINT:PRINT " Use" 
14401=X:j=y I :CHR$(24):"lds teclas del eurC 
1450 FOR x-O TO 7 ur":CHR$(24)," p.r. mover." 
1460 FOR y-O TO 23 :2200 PRINI:PRINI " ":CHR$(74), 
1470k=sdato(15-x,y), " COPY ";CHR$(24);" p.ra dlbuj 
,14BO sdaLoCI5-x.y)=sd"to(x, y) al" un pi""l." 1 I 
1 1490 sdatoex.y) 1. 1 221C' F'RINT:F'RINT " ",CHR$(24): 
1500 NEXT 1 " DEI ": CHR$(74)," pdra borr ar I 
1510 NE X T I 1 . "1 I I I ' 
1520 GOSUB 1250:GOSU[< 1370 :2220 PRINT:PRINT " ",CIIR$(74)' 
1530 x-¡:Y-j I 1 " EN TER ":CHR$(24)," salv.r l
 
1540 LOCATE 2.2C>:PRINT SF'CCI8) s daLos del sprlLe." -'-_ J 
1550 RETURN I 2230 F'R I NT: F'R I NT: F'R 1 NT " ": CHR 
1560 REM -----==c-=r=.-..=----- $ (24) ; "p'l 
 CHR$ (24) : 11. . . camt)) ar 
pens" 
:'74C' F'RINT " ": CHR$ (74), "S": CH 
R$ (24):"...1 ntere.mbl al" spri te 
s" , , I 
2250 F'RItH " ":CHR$(24), "H":CH 
R$(:¿4): ".. .re-fleJo harl=ontal ll 
2260 F'RINT " ",CHR$(24): "V":CH l 
R'$(74):". ..reflejo vertIcal" I 
:'270 r.'r.¡ J t,n " 11 
 CHf:':$ (74) 
 "G" : Cf 
 

,f'(
4): 10.. .q.lr eH 16::16 
,.>1::C'l
" 
22BO F'RINl ",";CHR$(:'4):"I"-,CH 
R$(24):"...redef.lnlr lnt" ---.---- 
2290 FRINl " ":CHk$(?4): "F":CII 
R¡(24):"oo.fll1" I , I J_ 
:23C,O f 'Ff, 1: I OUHE 14,74: r'R I NI 
"PLllse 
Sp
CI0. .." 
2310 MOVE O.O:DRI1W O,39B.I:DRI1 
W 63B.398:DRAW 63B.0:DRAW 0,0 
2320 L
H [1 E INI EY$<:''''': WEND 
23::,0 
IHII E HII':EY$(:>" ":WEND 
2340 CI sil 
235c) RE-. T URN 
2360 REM ----¡------------.--- 


f_ 
I 


1250 REM 
1260 REM 


Borr ar venteH1i:\S 


1 1270 ORIGIN 0.0.40,311,346.144 
:CLG O 
1280 ORIGIN 
9:CLG 
1290 ORIGIN 
1300 RETlJRN 
1 3 1 O R
 r1 


0.0
476.S48,276.211 
o. o. n. 640. 400. el 


THEN "prlLe-2 


1570 REM 
15BO REM 


Reflejo t1orl=ontal 


1590 
1600 


1 , 
LOCATE 2.20 I 
PRINT "Reflejo 
I 


horizont
l 


1610 
1620 
1630 
1640 
1 1650 
1660 
1670 
1680 
1690 
1700 
1710 
1770 
1730 


i -:-:: J-Y 
FOR :<=0 TO 15 
FOR y=O TO I J 
k-sdato(x,23-y) 
sddlo(>:.23-y)
sdato(
.y) 
sdato(x,y)=
 I 
NEXT 
NEXT 
GOSIJB 12";0:GOSUB 1370 
x=i: y i I 
LOCATE 2.2(': F'RJtH SF'C (1 B) 
RETURN 
RErl 


---
---T------------
 
GirO I 


1740 RErI 
175v REM 


, 
----------------- 


1760 


10CATE 2.20:F'RINT "Gltdnd 
I 
1 :
: J y 
FOR y=O TO 15 
FOR x O TO IS 
temp(15-y.>:)=sd.to(x.y) 
NEXT 
NEXT 
FOR >:=0 TO 1:-, 
FOR y=O 10 23 
sd d t u (::: . ... ) -l E...'fIlLJ (;: . \ ) 
I"IEX I 

'IE X I 
G05LJ[< 1 2
,0: GOSI lB 1370 
>: "Y i I 
LUCI11E 2.20,PRINT SPC(IB) 
RETlIRN 1 
REM 


2370 RErI 
23BO REM - 


Salvar 


O. . . u 


1770 
178C' 
1790 
1800 
IBI0 
IB20 
IB30 
IB40 
1850 
IB60 
IB70 
IB80 
IB90 
1900 
1910 
197(' 


--------------------1 
1930 REM Ird er e"mbl o I 
1940 REM ------------------- 
 
1950 LOCI1IE 2,20 
1960 F'RINT 'tCamblo de spr-ltes" 
1970 J ,,: j y L J 
1980 FOR >:=0 TO 1
 
1990 FOR y=C' TO 23 I I 


2390 I,-O:FOR 1-0 TO 15:FOR j-O 
TO 15:1.=l.tsdato(,.j):NEXr:NEX 
T 
2400 IF 1 O THEN RETURN 
2410 dl
ecclon
&COOO+8*&50+15* 
" 
2420 10U1TE ? 20: r'RINT "Sa] Vdl1 
do. .." 
2430 f=l: GOSIJE< 2830: y=j 
2440 dlreccion dl
eccl0n+&800* 
Iy MOD B)+&
0*(y\8) 
7450 f=-l:GOSUB 7830:fl1as=J-Y 
246(' f = 1: GOSIJB 2950: x 1 (, AND 
1) 
2470 di r ec.c 1 Orl=dl r ec.c..i Of\+ (
< \2) 
24BO f -1:GOSUB 2950:eolumna5- 
(,-X) \2 
2490 k=
<9000 1 - 
2500 F'OI:E l.filas+I:F'OI,E 1.+I,e 
olumn
s+1:



.+2 I 
2510 FOR JOTO fIlas 
2520 x-dlr-eccl0n+
..¡;8(10* (j MOD B 
1+&50* (j\B): IF ,:;&FFFF TIIEN x- 
x +

C050 


r 
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1 
I 
1 


2530 FOR 1 (] TO col UffinlC\s 
254C' F'OI'E k, PEEf.' (" ) 
2550 l. 
 + 1 ::: >: + 1 
2560 NEXT 
2570 NEXT 
2580 lor1qltud 
:-&9000 
2590 WHILE INI E,$D....:
J¡::ND:rI0D 
E 2:BORDER O:PEN 1 ' 
:2600 r'RINT: H,PIIT "t,jambre de] S 
pt""lte u
nombre$ 
2610 IF "ombre$ "" THEN nombre 
$-"caracter" I 
262() 1=q(J20:1,-
9()(12:a
 t'902(
 O 
ATA " 1 
2630 r-rn tH: F'RI NT "9000 RErl ": n 
ombre$ 
2640 p
INr "9010 REM FJlasL":M 
I D$ eSTR$ e f i 1 as tI) ,2) : " /CoI Llmn. 
s= 11: 1'11 D$ (51 R$ ((.U] lHfI'Id.S+ 1) .7) 
2650 FOR y=O TO flla
 
2660 r'OR )(=0 rn collII1IJ)c\$ 
2670 a$ a$'MID$(STR$(PEE
(I.», 
2) +".": I 1+1 
2680 IF- (t-H(d¡') ./;, lJk 1(:
-t.:.CJ]lllll 
fll>S AtlD y-fiJ"s) IHI:oI'I fkHlf LE 
FT$la$,LENea$)-I):1 l'IO:d$
MJ 
D$(STR$(I),2)+" DATA .. 
269(' NEX T 
270(, NE X I 
2710 PRINI:PRINT "Sal v.. o Fin 
(S/F) 7": 
2720 a$="":WHII E a$<)"S" AND a 
$< .. "F" , a $=IJF'F'ER$ ( I 
W.EY$) : WEND .-l 
2730 IF a$="F" THEN F'RINT"Fln" , 
,SF'EED I.EY 25,:2: END EL SE F'R I NT 
CHR$ e 13) : 5f-'C (/.'0) CHR$ (13): 
2740 nombre$=LEFT$(nombre$.B)+ 
". SF'R" I . 
2750 F'RINT "S,," valido ", CHf,$ (34 
):nombre$:CHR$(34):".b,&9000.& 
":HEX$elonYltlOd) :F'RINT ' 
2760 I SAVE nombre$.b.&9000,lony 
ltLld 1 
2770 F'RINI:F'RINT "F'Lllse lOna te 
"Id...." I 1 I 
27BO WHII E INI EY$<>"":WEND:WliL_L__ 1 
LE INKEY$="":WEND 
2790 rl0DE O: GOSUr< =',60: GOSLJE< 12 ' 
50:GOSUB 1320 


!
 

!


:
:::_
:_--j 
2830 
EM F'oner]' I 
I 1 mi t es supe,-:i o 


--' 


, 
L 


, 

 


1" 
2B4(, RErl 
2850 REM 


I 
e 1 nfer 1 or 


-1------------------- 
I I 
I 


I 


-'- 


2860 
2870 
:2BBO 
2B90 
2900 
2910 
2920 
2930 
2940 


j=-23*(f=-I):1.-0 
WH I LE k =C' 
FOR i O TO 1
 
1.-1 +sdatoCl. j) 
NEXT 1 
j j-f* (k=O) 
WEND 
RETURN 
REM ------------____ 


2950 
do 
2960 
2970 


REt'I F'orler 11 nll t es 1:' qUl er 


REM 
REM 


y derecho 


29BO 
2990 
3C'OO 
3010 
3020 
3C'30 
304C' 
3050 


i -15*(f -1):k-O 
WHILE k=O 
FOR rO TO 23 
,: k+sdato(" j) 
NEXT 
l-i-f*Ck= 
 ) 
WEND ,,"__ 
RETURN \ r. 1 
, --. 


.' 


\. 


Para que lus dedos 
no rea/'cen ellrab% duro, }.-IR AMS, 
TRAD /0 hoce por /i, Tadoslosl,slodos que ,ncluyon 
este /ogo' po se encuentran a lu d'sposic,on en un eas, 
selle mensuol, soliedonosla, 



, 


, 


. 


;Ii i 


A 


EN 


La mayoría de los programas, en cuanto incorporen una mínima sofisticación, necesitan 
plantear al usuario una serie de opciones distintas, para que la persona pueda escoger 
la que más se acomode de la manera más sencilla y obvia posible. 
El programa de esta semana de AMSTRAD Análisis está enfocado en este sentido; 
pretende mostrar una forma, de las muchas que hay, de implantar un menú de opciones 
dentro de un programa. 
No se ha tenido especial cuidado en la presentación y estética del gestor de menús, 
pensando en que cada lector pueda crearla a su propio estilo y pensando, también, en 
resaltar con la máxima claridad la metodología elegida. 
Vamos pues, con el programa. 


I 
I 
t 


10 Implemento un bucle WHILE..,WEND 
sin fin aprovechando la «costumbre» del 
Amstrad de inicializar a O cualquier varia- 
ble numérica que no se haya definido antes. 
Por eso la variable «fin» no aparece por nin- 
guna parte, y el bucle se ejecuta siempre, por- 
que es falso que «fin» sea cierta (distinta de 
O) 
30-80 Imprime en pantalla las 5 opcio- 
nes de que consta el menú (pueden ser más 
o menos de 5, por supuesto). 
90 Inicializa las variables «elección¡) y 
«num. opción»; esta última corresponde al 
número de operaciones que gestionará el pro- 
grama menú. 
1 00-120 Prepara las variables que usa- 
rán para imprimir en pantalla un signo, el cuál 
a su vez señala qué opción del menú estamos 
considerando escoger. 
130 Impresión del signo en el lugar ade- 
cuado, 
140 Bucle de espera para evitar que el «*» 
parpadee, 
150.180 Ajusta las variables «elec- 
ción» y «lugar» en función de que haya- 
mos pulsado o no las teclas de movimiento ver- 
tical del cursor, aumentando o disminuyendo 
en 1 la posición de impresión del «*» 
190 Se examina el teclado de nuevo si no 
se ha pulsado «ENTER», ya que esta tecla le 
indica al programa que deseamos escoger una 
opción del menú. 
200 El programa bifurca a la subrutina 
adecuada en función del valor de la variable 
«elección», 
230-300 Se imprime el número de opción 
escogida, se espera a que se pulse cualquier 
tecla (línea 290) y se vuelve al bucle sin fin del 
programa principal. En una aplicación real, 
antes del «goto 280» deben ir las líneas de 
Basic que impl
enten el trabajo de la opción 
en cuestión, lógicamente. 


u 


I 
J 


10 "'J
11l1: NOT .f 111 
2(1 CLS 
:'0 LOr.ATE 9.6:rTdNl 'U t'lC.NlJ rR 
l NC l PAL .. i" 
40 LOCATE lO, 7:rRHH 'OIKiorl 1 
50 LOCATE IO.8:F'RINT 'Opclon 2' 
60 I aCATe JO,9:f'ri:INr 'Opt.Jorl T' 
70 lOCAr£: IO.JO:F'RINT'OpcJolt 4 


Ion elecLlont1 
¡801F 111q" .C'hc.tlVrll!l(NIO 
CATE 9.6+1uqc" :r'RINT' 'bUrO 1 
00 
190 GUrO ¡",(I 
200 CI S:ON elt..\ l10r\ úll
lll
 ?:':I), 
24l"I, ?
( l. )61...1.2]0 
"lO I.>jFN/) 
7./u "_1'-]0 
:-:"1.) 1(11 'HE IrI,',:H,'INf'(J/"llotl I 
SU [r["lmIADA ':GOTO "so 
24ú 1 ()(rllE HI,',:f-RIIII Of-'CIUN '2 
6Ft ECC Il 
JA[)A ': GtlTO 780 
....(1 1111 f\TF 1(1. J:I ¡,INI 'UF'CIQN " 
SEI Erc 1 lJNoOA : L:.D TO 28('1 
260 lOCO rr 10."': pf.: Ir
 1 'UF'C 101" 4 
SEI [rc I ot 11'10(\' : GO fa 
oo 
:1<.1 10 I'IIC lu....,.r.kIrJT'.OF-C((1N 5 
SELECClmJAO() , 
280 1 (lr'(¡Jr /..'I:f-RltH",. F'ul"'''! 
r SF'nCI:: p \f
' V o,;, I VOl'". 11 mr;>nu .... 
2QO t.Jln t E. 1tU
E"Y (47).. 1: l,JlNO 
-:'00 F..ETI n,.1 


AO t.0((\1[ j('.JJ:r'fo:IrH 'Q!)UOI1 
 


90 eleCl.JOII-J
III1"I.(J!)('lOIJ-::' 
1(1(1 tF 
I"'CCIOII -rllllh.up(.lun THI;. 
N ,,11'[('lorl , 
11(1 If- r-oleu_)(JII'l lHEN [
lec('1a 
n nllffl.OjlCIOn 
12(1 11II)_lr -r 1, l.l.1 011 
1,30 LOCATE 9.. 6+el eCCl o..... F'nII.4T , 
.' 
1"(1 Hm ) I lO 
O(I:f\Jf):1 1 
1..)0 Jf: Ir I F-Y<181 - 1 1111:.,.. 2Ó(1 
.:r 160 Ir II-JlEYCOJ-)-) lHCfIl.lec:c: 
lon fJ'1c.:>r:C10n-1 
17(; H. INI f-Y(7) -1 HIE.N elec.c 


'-- 
r;;i:',¡'1m"I] I 


. '-X<!. I 


Para que lu! dedo. 
no reo/,,:en eltrabo¡o duro, M H, AMS. 
JRAD /0 hace por /¡, Jodo! /o! lisIado! que InCluyan 
este logol¡pO se ercuentran Q lu dlsposiÚon en un cos' 
selle menJuol so/¡(lIonoslo, 
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T I V A 
COMO LO OYES. EN CADA 
UNO DE NUESTROS JUE. 
GOS ENCONTRARAS UN 
CUPON. MANDANOSLO DE. 
BIDAMENTE RELLENADO Y 
PARTICIPARAS EN EL SOR. 
TEO QUE ENTRE TODOS 
LOS CUPONES RECIBIDOS 
HAREMOS EL 15 DE EN RO. 
¡IMAGINA TE! NADA MENOS 
QUE VIAJ y ESTANCIA 
PARA 2 PERSONAS DURAN. 
TE 1 SEMANA N MIAMI, N " 
DISNEY WORLD. 
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MICROLlD: Gregorio Fdez" 6 
Tel. (983) 35 26 27. Valladolid 


Jorge Juan, 116. 28028 Madrid 
Tels. (91) 233 07 35-274 53 80 


Hemos creado para ti el nuevo Club del Software MICRO-1. En él vas a encontrar los últimos títulos 
a unos precios increíbles. Para hacerte socio sólo es necesario que nos pidas uno de estos programas, 
teniendo como regalo de bienvenida un magnífico bolígrafo con reloj de cuarzo incorporado. 


¡¡Primicia AMSTRAD: Ajedrez en tres dimensiones con sintetizador de voz y completamente en 
castellano: 2.395!! 


Ptas. 


Ptas. 


Ptas. 


Match day 
Southern belle 
Death pit 
Decathlon 
Gremlins 
Popeye 


1.975 
1.975 
1.975 
1.975 
1.975 
1.875 


Dragontorc 
Dummy run 
Combat Iynx 
Exploding fist 
Rocky 
Basketball 


1.875 
1.975 
1.925 
2.095 
1.925 
1.925 


Raid o moscow 
Jump jet 
Beach head 
Basketball 
Highway encout. 
Hightsade 


1.975 
2.595 
2.395 
1.950 
1.975 
1.925 


Joystick Ouick Shot I 
1.795 


Joystick Ouick Shot 11 
2.495 


Joystick Ouick Shot V 
¡ i El mejor!! 
2.995 


lápiz óptico DK'Tronics 
5.850 


¡ ¡Increíbles precios para 
tu AMSTRAD 464 y 6128!! 


Cassette especial para 
664 y 6128: 5.295 


Tapa de metacrilato 
transparente 
para tu AMSTRAD 
2.450 


Impresoras 
20% Dto. sobre P.V.P. 


Cinta C.15 Diskette 3 
85 995 


LIBROS 


Ptas. 


Ptas. 


Curso Autodtdáctico Basic (1) 
Programando con AMSTRAD 
Juegos sensacionales AMSTRAD 
40 juegos educativos AMSTRAD 
Guía de referencia de Basic 


2.725 
2.250 
1.790 
1.790 
1.900 


Curso Autodidáctico Basic (11) 
Hacia La inteligencia artific. 
Código máquina para princip. 
Programando Basíc con AMSTRAD 
Música y sonido con AMSTRAD 


2.750 
1.375 
1.975 
1.975 
1.125 


El pedido te lo enviamos URGENTEMENTE contra-reembolso SIN NINGUN GASTO DE ENVIO, lLA- 
MAN
O a los teléfonos: (91) 233 07 35-274 53 80 o escribiendo a MICRO-1. Jorge Juan, 116,28028 Madrid, 



1:"-' . 


./ 

 '-- 


11 ¡-1 
1
 . 
I 
IJEVfJl PRfJORAMA 
N e J IIETT 1 DI. ill 


INT 


l' 


II 



L ' 


\.. 



 1 


ARGO NAVI 


ROCK RAID WIZARD'S LAIR 
'.. .1' ."tI"". 
" ,1 j -' t- \'1 
 
... 
mi 
-, 
... 
'- 
.- , 
,( " . 

 1 , -; 



 



....-


 


! 


. ...--;.-" ..

.t
'if., 1 
1" "1 .e;>
,"h':;::;." ' r ll 
.: I 1
"""".

.:'"v' 
 
. I '."
 ',' ..... \ 
\

,J '.'. 

 ! 


" 
"' )1 
r J :'
"''-::J- 


-... 
., 
"'_JirII"" I 
-.... , 


..... 
.... , 

 ...., 


, I r-'= 
 ' ! -.,...
 
'
8 l.=J 
,,:". IBII!I ; 
 @ 
, 
' H
 
(;iiOJ EJ 


: "_" H I , 
\..111'....).ootIIp.
 
_...: 
¡". Al 


ODDJOB 


t ei..
 
 ' 
 ...: It ,... 
, - " 
t ..........I.0oI - i 
¡,$;¡ E-r t:: fH 
---.... ií; 
I ." 



}:
 I 
"/,,...f 


- F:J. 


- 


,o 


. ,
...
 


.

 


. 


I :'f I . ,. . Ir ..lIIí... lI!\f artllll.....i
 L 
i. . 
lIIf . . ..', . pr.,... ...i
hn lar IIIf IIS_ 0(" . '"Ir, 


(4r- f
k 

-" 
'""tlI 
'''111111 


--. 
..crrn'\i. .=-- 
C;"= I ; G f 
 

 j 
I ,l '!-j/.:J - - 
L _
lt.

 
 



""\ 
-" r- ' 
j rll
 

,
 . .. 1 


\
' 
¡
: . J 
- - 
1--mr
H-I 


.... 
.1 


1 


I 


I 


l' 
 ""ADAM FLlPPE R 


1" 


'1, 
, 
1 1 



\ 


.-0\ 


programo qua nos traslaaa al mo 
. la mOquina.flipper ael mejor casino 
a, as Vagas, Posibilidad de creación del 
tablero. puntuaciones. atc. P.V.P,: CASSET. 
2,200, I SCO ',1'. 


. ..mI "rn._u,u l. 


.1)( tV<:1.tIK1I: 
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J 11 E
 I ': L..... 
1 I:t mi :;;SE: :31 
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1_ -. w 
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TRANSMAT 
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... d J I t:1iJI t= " 
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. AS. 
ENVIENOS A MICROBVTE P,o Castellana, 179, 1. 0 - 28046 Madrid 
Nombre 
,"Lelhdos 
Dirección 
Población 
OP, T elelono 
ENVIOS GRATIS 
JUEGO C O I Precio TOTAL 
I I 
I 
! 
I 
PRECIO T01 AL PESETAS 
Incluyo lalón nomina
'o O 
Contra. Reembolso O 


Pedidos por teléfono 91 . 442 54 33 / 44 
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150 Ptas. 


Canarios 160 ptas, 
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S obre un amplio campo de batalla que cubre docenas de 
kilómetros cuadrados, usted deberá situar y conducir a tres di- 
visiones aerotransportados, a la conquista de los puentes que 
abren el camino hacia Berlín. Se encuentran detrás de las líneas 
alemanas y deberán se capaces de mantener sus posiciones 
hasta ser relevados por 
el XXX Cuerpo 
Expedicionario 
Británico. 
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¡PIDELO EN 
TU KIOSCO! 


Si no lo encontraras pue- 
des pedirlo directamente 
a Hobby Press, S,A. Apar- 
tado de Correos 54.062. 
Teléf. 65432 77, Madrid. 


HOBBY PBESS,SA 
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l' del ataque de le,¡ for 
y consigue escribir tu nomb 
en la leyenda del «FAR WEST... 


le presenta en 
exclusiva el W AR GAME 
de mayor éxito 
en Inglaterra 


... 


\\ 
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· ,TRUM · 


(Para Spectrum, plus, 128 K y, muy pronto, 
disponible para Amstrad y Commodore) 
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Operación "Market Garden" 
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